Imports
System.Data
Imports
System.Data.SqlClient
Imports
System.IO
Public
Class Form4
Dim ConnUrl As
TextReader
Dim ConnString As
String
Private Sub
Form4_Load(ByVal sender
As System.Object, ByVal e
As System.EventArgs)
Handles MyBase.Load
Dim
ds As New
DataSet
ConnUrl =
New StreamReader("C:\Documents
and Settings\Administrator\My
Documents\Visual Studio
2005\Projects\CnFromTxt\CnFromTxt\ConnectionURL.txt")
ConnString =
ConnUrl.ReadToEnd()
ds = GetCompany()
If
ds.Tables.Count > 0 Then
If ds.Tables(0).Rows.Count > 0
Then
cmbCustomerId.Items.Clear()
For Each oRow
As DataRow In
ds.Tables("CUSTOMERS").Rows
cmbCustomerId.Items.Add(oRow.Item("CUSTOMERID"))
Next
cmbCustomerId.SelectedIndex = 0
lblRecords.ForeColor = System.Drawing.Color.Red
lblRecords.Text = "Selected Records:" &
"[ " & cmbCustomerId.SelectedIndex + 1 &
" ]"
Else
MsgBox("No
data found", MsgBoxStyle.Information)
End If
End If
End Sub
Private Function
GetCompany() As DataSet
Dim Sconnection As
SqlConnection = Nothing
Dim da As
SqlDataAdapter = Nothing
Dim ds As
New DataSet
Dim strQry As
String
strQry =
"SELECT CUSTOMERID FROM CUSTOMERS "
Try
Sconnection =
New SqlConnection(ConnString)
da =
New SqlDataAdapter(strQry, Sconnection)
da.Fill(ds,
"CUSTOMERS")
Catch ex As
Exception
MsgBox(ex.Message)
End Try
Return ds
End Function
Private Sub
cmbCustomerId_SelectedIndexChanged(ByVal sender
As System.Object, ByVal
e
As System.EventArgs)
Handles cmbCustomerId.SelectedIndexChanged
Dim Sconnection As
SqlConnection = Nothing
Dim da As
SqlDataAdapter = Nothing
Dim ds As
New DataSet
Dim strQry As
String
lblRecords.Text =
"Selected Records:" &
"[ " & cmbCustomerId.SelectedIndex + 1 &
" ]"
strQry =
" SELECT COMPANYNAME,CONTACTNAME,CONTACTTITLE,ADDRESS
+ ' ' + 'City:'" +
vbCrLf
strQry = strQry +
" + CITY + ' ' " + vbCrLf
strQry = strQry +
" + 'Region:' " + vbCrLf
strQry = strQry +
" + ISNULL(REGION,'Not Mentioned') " + vbCrLf
strQry = strQry +
" + ' ' + 'Postal Code:'+ ISNULL(POSTALCODE,'Not
Mentioned') " + vbCrLf
strQry = strQry +
" + ' ' + 'Country:' + ISNULL(COUNTRY,'NOT
MENTIONED') " + vbCrLf
strQry = strQry +
" + ' ' + 'Phone Number:' + ISNULL(PHONE,'Not
Mentioned') " + vbCrLf
strQry = strQry +
" + ' ' + 'Fax Number:' + ISNULL(FAX,'Not
Mentioned')AS ADDRESS FROM
CUSTOMERS WHERE CUSTOMERID='" &
Trim(cmbCustomerId.Text) &
"' "
Try
Sconnection =
New SqlConnection(ConnString)
da =
New SqlDataAdapter(strQry, ConnString)
da.Fill(ds)
If ds.Tables.Count > 0
Then
If ds.Tables(0).Rows.Count > 0
Then
txtCompany.Text = IIf(IsDBNull(ds.Tables(0).Rows(0).Item("COMPANYNAME")),
"",
ds.Tables(0).Rows(0).Item ("COMPANYNAME"))
txtEmployee.Text = IIf(IsDBNull(ds.Tables(0).Rows(0).Item("CONTACTNAME")),
"",
ds.Tables(0).Rows(0).Item ("CONTACTNAME"))
txtAddress.Text
= IIf(IsDBNull(ds.Tables(0).Rows(0).Item("Address")),
"",
ds.Tables(0).Rows(0).Item ("Address"))
txtCname.Text = IIf(IsDBNull(ds.Tables(0).Rows(0).Item("CONTACTTITLE")),
"",
ds.Tables(0).Rows(0).Item ("CONTACTTITLE"))
End If
Else
MsgBox("No
data found", MsgBoxStyle.Information)
End If
Catch ex As
Exception
MsgBox(ex.Message)
End Try
End Sub
End
Class