Dim myConnection As SqlClient.SqlConnection
Dim myCommand As SqlClient.SqlCommand
Dim myReader As SqlClient.SqlDataReader
Dim strSql As String
Dim ConnStr As String
strSql = "SELECT P_NAME FROM M_PLOR"
ConnStr = "server=WHATEVER;packet size=4096;user id=sa;password="sa";data source=ISO2;persist secu" & _
"rity info=False;initial catalog=wuye"
myConnection = New SqlClient.SqlConnection(ConnStr)
myConnection.Open()
myCommand = New SqlClient.SqlCommand(strSql, myConnection)
myReader = myCommand.ExecuteReader
Dim n As Integer
n = myReader.FieldCount
Dim str As String
ShipMethod.DataSource = myReader
ShipMethod.DataBind()
浙公网安备 33010602011771号
Dim myConnection As SqlClient.SqlConnection
Dim myCommand As SqlClient.SqlCommand
Dim mydtadp As SqlClient.SqlDataAdapter
Dim myds As New DataSet
Dim strSql As String
Dim ConnStr As String
strSql = "SELECT * FROM a"
ConnStr = "server=4GROUP;database=chronos;user id=chronos;password=chronos"
myConnection = New SqlClient.SqlConnection(ConnStr)
myConnection.Open()
myCommand = New SqlClient.SqlCommand(strSql, myConnection)
mydtadp = New SqlClient.SqlDataAdapter(strSql,ConnStr)
mydtadp.Fill(myds, "a")
DataGrid1.DataSource = myds.Tables("a").DefaultView
DataGrid1.DataBind()