Dim strCon As String = "user id=sa;password=;initial catalog=Yinzidu;data source=JC03"
Dim myConn As New SqlClient.SqlConnection(strCon)
myConn.Open()
Dim Sqlcmd As SqlCommand = New SqlCommand("SELECT * FROM Apparatus")
如果你想返回其它值比喻第二行,第三列的
可以考虑这样用
cmd1.ExecuteNonQuery()
Dim dr As OleDb.OleDbDataReader = cmd1.ExecuteReader
Dim i As Integer
dim str as string
Do While dr.Read
if i=1 then'证读到第二行了
str=cstr(dr.items("abc")) '第二列的字段名
end if
Loop
dr.close
Dim dbname As String = "text"
Dim myConnectString As String = "Persist Security Info=False;IntegratedSecurity=SSPI;
database=" & dbname & ";server=p07;Connect Timeout=30"
Dim myConnection As New SqlConnection(myConnectString)
myConnection.Open()
strsql = "select * from sysobjects where name ='tabname'"
Dim cmd1 As New SqlCommand(strsql, myConnection)
dim tcount as integer=cmd1.ExecuteScalar() '返回的是第一行,第一列的值,其它的忽略