当然ado咯, Private Sub Form_Load() Dim cnn As ADODB.Connection Dim ObjRS As ADODB.Recordset Dim ssql As String Dim strCnn As String Dim strID As String 'Open ADO connection strCnn = "driver={SQL Server};database=test;server=192.168.1.252;UID=nmkspro;PWD=123;" Set cnn = New ADODB.Connection cnn.Open strCnn ssql = "SELECT * FROM TABLE1 ORDER BY 学号" Set ObjRS = New ADODB.Recordset ObjRS.Open ssql, cnn Text1.Text = ObjRS("学号") Text2.Text = ObjRS("姓名") End Sub 这是连接及显示结果的源代码
要快最好不要用ADO,用MSSS提供的直联引擎吧.不过比ADO复杂.
Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim ObjRS As ADODB.Recordset
Dim ssql As String
Dim strCnn As String
Dim strID As String
'Open ADO connection
strCnn = "driver={SQL Server};database=test;server=192.168.1.252;UID=nmkspro;PWD=123;"
Set cnn = New ADODB.Connection
cnn.Open strCnn
ssql = "SELECT * FROM TABLE1 ORDER BY 学号"
Set ObjRS = New ADODB.Recordset
ObjRS.Open ssql, cnn
Text1.Text = ObjRS("学号")
Text2.Text = ObjRS("姓名")
End Sub
这是连接及显示结果的源代码