A
Adam Clark
Here is what I have:
Dim strConn As String
Dim sqlCon As SqlClient.SqlConnection
Dim sqlCmd As SqlClient.SqlCommand
Dim sqlAdapt As SqlClient.SqlDataAdapter = New sqlclient.dataAdapter()
strConn = "data source=LHPSERVE;initial catalog=AssetTrakker;integrated
security=SSPI;persist security info=False;workstation id=LHPSERVE;packet
size=4096"
sqlCon = New SqlClient.SqlConnection(strConn)
sqlCon.Open()
dsAssets = New Data.DataSet("dsAssets")
sqlCmd = New SqlClient.SqlCommand("Select * from tblAssets")
sqlCmd.CommandType = CommandType.Text
sqlCmd.Connection = sqlCon
sqlAdapt.SelectCommand = sqlCmd
sqlAdapt.Fill(dsAssets, "tblAssets")
--------------------------------------------------------
Is there a way to make this simpler? DO I really need the sqlCmd ?
Thanks
Adam
Dim strConn As String
Dim sqlCon As SqlClient.SqlConnection
Dim sqlCmd As SqlClient.SqlCommand
Dim sqlAdapt As SqlClient.SqlDataAdapter = New sqlclient.dataAdapter()
strConn = "data source=LHPSERVE;initial catalog=AssetTrakker;integrated
security=SSPI;persist security info=False;workstation id=LHPSERVE;packet
size=4096"
sqlCon = New SqlClient.SqlConnection(strConn)
sqlCon.Open()
dsAssets = New Data.DataSet("dsAssets")
sqlCmd = New SqlClient.SqlCommand("Select * from tblAssets")
sqlCmd.CommandType = CommandType.Text
sqlCmd.Connection = sqlCon
sqlAdapt.SelectCommand = sqlCmd
sqlAdapt.Fill(dsAssets, "tblAssets")
--------------------------------------------------------
Is there a way to make this simpler? DO I really need the sqlCmd ?
Thanks
Adam