刚刚学VB6,如何读取ACCESS数据库中的某一字段
我只能用DATA控件,文本框显示出来我要得字段,可是我想要把这个字段提取出来。我就不知道,万分的谢谢您的回答比如文本1,已经帮定DATA1,显示了“filepath”字段...
我只能用DATA控件,文本框显示出来我要得字段,可是我想要把这个字段提取出来。我就不知道,万分的谢谢您的回答
比如文本1,已经帮定DATA1,显示了“filepath”字段的内容。那我如何让文本2也显示同样的内容(不帮顶),text1.text=data1.recordset.fields("filepath")。这样行不 展开
比如文本1,已经帮定DATA1,显示了“filepath”字段的内容。那我如何让文本2也显示同样的内容(不帮顶),text1.text=data1.recordset.fields("filepath")。这样行不 展开
3个回答
展开全部
我给你一个例子:
我的数据库在桌面上:名叫test
Public cnn As New ADODB.Connection
'这建立一个连接。
Private Sub Command1_Click()
Dim rst As New ADODB.Recordset
Dim sql As String
sql = "select * from test where ID='1'"
rst.CursorLocation = adUseClient
rst.Open sql, cnn, adOpenStatic, adLockReadOnly
Me.Text1.Text = rst.Fields("ID").Value
Me.Text2.Text = rst.Fields("test2").Value
Set Me.DataGrid1.DataSource = rst
End Sub
Private Sub Form_Load()
Dim Connectionstring As String
Connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\test.mdb;Persist Security Info=False"
cnn.Open Connectionstring
End Sub
我的数据库在桌面上:名叫test
Public cnn As New ADODB.Connection
'这建立一个连接。
Private Sub Command1_Click()
Dim rst As New ADODB.Recordset
Dim sql As String
sql = "select * from test where ID='1'"
rst.CursorLocation = adUseClient
rst.Open sql, cnn, adOpenStatic, adLockReadOnly
Me.Text1.Text = rst.Fields("ID").Value
Me.Text2.Text = rst.Fields("test2").Value
Set Me.DataGrid1.DataSource = rst
End Sub
Private Sub Form_Load()
Dim Connectionstring As String
Connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\test.mdb;Persist Security Info=False"
cnn.Open Connectionstring
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
提取到什么地方?
要提取的地方=data1.recordset.fields("字段名")
要提取的地方=data1.recordset.fields("字段名")
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2005-11-23
展开全部
用data.fileds("字段")
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询