Question

在VB中把ACCESS的数据读取到TEXT1，TEXT2.。。。中

怎样把ACCESS中的数据读取出来。并显示在VB的TEXT框中。且不可更改（只读属性） 要求：1： 把ACCESS中的A2显示到。TEXT1中且不可更改。 2： 把ACCESS中的A3现实到。TEXT2中且不可更改。 .......................................

Answer 1

Dim myRes As Adodb.Recordset
Dim conn As New Adodb.Connectionconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库路径(比如c:\1.mdb);Persist Security Info=False"
conn.OpenSet myRes = conn.Execute("select * from 你的数据库表名")
If Not myRes.EOF Then
Text1.Text = myRes("A2")
text2.Text = myRes("A3")
End If 这样读出来的数据就算是你在TEXT中更改了，也不会影响到数据库，除非你写一条更新SQL才能更改

Answer 2

Dim rs As ADODB.Recordset
Dim cnn As ADODB.Connection
Private Sub Form_Load()
Dim strAppPath As String
Dim constr As String
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then
strAppPath = strAppPath & "\"
End If
strAppPath = strAppPath & "db1.mdb"
constr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strAppPath & ""
cnn.Open constr
Dim str As String
str = "select a1,a2 from 表名"
rs.Open str, cnn, adOpenStatic
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text1.Locked = True
Text2.Locked = True
End Sub