Dim objsqladapter As SqlClient.SqlDataAdapter
Dim strSQL As String = "select * from vw_geninfo_upd"
'Set the dataset object
Dim myDataset As New DataSet
'Set the connedction string to new instance
DBConn = New DBConnect
sqlconnection = New SqlClient.SqlConnectio(DBConn.ConnString)
sqlconnection.Open()
Dim sqlcommand As SqlClient.SqlCommand
sqlcommand = New SqlClient.SqlCommand
sqlcommand.Connection = sqlconnection
sqlcommand.CommandText = strSQL
objsqladapter = New SqlClient.SqlDataAdapter(sqlcommand.CommandText, sqlconnection)
objsqladapter.Fill(myDataset, "vw_geninfo_upd")
'Binding ListBox Control
lstGenInfo.DataSource = myDataset
lstGenInfo.DisplayMember = "vw_geninfo_upd.VesselName"
lstGenInfo.ValueMember = "vw_geninfo_upd.VesselLocationID"
''Binding the Textbox Control
lblGenInfoID.DataBindings.Add"text",myDataset, "vw_geninfo_upd.VesselLocationID")
txtGILatitude.DataBindings.Add("text", myDataset, "vw_geninfo_upd.LocationX")
txtGILongitude.DataBindings.Add("text", myDataset, "vw_geninfo_upd.LocationY")
txtGISeaWaterTemp.DataBindings.Add("text", myDataset, "vw_geninfo_upd.Temperature")
txtGICurrentDirection.DataBindings.Add("text", myDataset, "vw_geninfo_upd.Current Direction")
txtGICurrentVelocity.DataBindings.Add("text", myDataset, "vw_geninfo_upd.Current Velocity")
cboGIWeatherCondition.DataBindings.Add("text", myDataset, "vw_geninfo_upd.Weather Condition")
cboGISeaCondition.DataBindings.Add("text", myDataset, "vw_geninfo_upd.Sea Condition")
txtGIRemarks.DataBindings.Add("text", myDataset, "vw_geninfo_upd.remarks")
txtGITotalCatchToday.DataBindings.Add("text", myDataset, "vw_geninfo_upd.TCT")
txtGITotalOnBoard.DataBindings.Add("text", myDataset, "vw_geninfo_upd.TOB")
txtGIYF.DataBindings.Add("text", myDataset, "vw_geninfo_upd.YF")
txtGISJ.DataBindings.Add("text", myDataset, "vw_geninfo_upd.SJ")
txtGIAssist1.DataBindings.Add("text", myDataset, "vw_geninfo_upd.AssistedBy")
Jimmy P. Calatrava
System/Network Admin/
VB.NET Programmer
RD Group of Companies
Philippines
---***---***---
Life always begin with TRUE or False