VB连接access数据库的详细说明
实现查询功能:
保证ADODC1的属性中，记录源选择1-adcmdtext
命令文本写:selet * from
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
名称
下面是查询按键的click事件
Private Sub Command3_Click()
Dim str As String
str = "Select 表2.* from 表2 where 哈哈='" & Text6.Text & "'" Adodc1.RecordSource = str
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
Text7.Text = Adodc1.Recordset.Fields("哈哈")
End If
End Sub
一定要注意的是查询的字段一定要类型匹配，如哈哈是文本。Text6.text也是。使用字符串常量的话，可以替代" & Text6.Text & "。否则必须按照以上的形式
查询成功后有两种方法可以显示查询结果:一种是像上面那样将字段赋值给相应框。 另一种是如果窗体内有文本框与adodc控件关联，即datasource是控件，而且datafiled是各个字段，就会立刻显示。
对与增、删、改的功能在记录较少，或程序中不要求这方面的情况下，可以直接用一个可编辑的datagrid就行了。
删除记录:
配合查询功能，删除当前的记录。
Private Sub Command4_Click()
x = MsgBox("确实要删除当前记录吗,", vbYesNo + vbQuestion, "确认") If x = vbYes Then
Adodc1.Recordset.Delete
Else
Adodc1.Refresh
End If
End Sub
增添记录:
一种是:依靠，与字段相关联的文字框来实现输入，配合addnew命令和update命令。 Private Sub Command5_Click()
Adodc1.Recordset.AddNew
End Sub
点击addnew后，文字框清空，输入数据后点击确认更新，执行下面的操作，成功写入。 Private Sub Command6_Click()
Adodc1.Recordset.Update
End Sub
如果在程序中增加记录则需要addnew命令后，对Adodc1.Recordset.Fields("字段名称")进行赋值后确认更新。
修改记录:
一种是查询后，直接在文字框修改，然后点击确认更新键。如果在程序中修改记录则需对Adodc1.Recordset.Fields("字段名称")进行赋值后确认更新。
增删改查、记录move操作很多时候需要记录有关联的文本框进行选择。Datagrid是显示符合条件的记录功能。比如我选择20130331的记录，那么datagrid中的记录就有20130331相关的，再movenext也只有这些了。Refresh是把记录指针指向当前datagrid的首位置。
浙公网安备 33021202002483