Question

vb数据库，这几个功能如何添加，能给具体代码可以么

Answer 1

Option Explicit
    Dim SaveValue
    
Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim RowValue, ColValue
    '获得鼠标经过的行列值。
    RowValue = DataGrid1.RowContaining(Y)
    ColValue = DataGrid1.ColContaining(X)
    '如果两个值都有效，则保存单元的文本并
    '开始拖动。
    If RowValue > 0 And RowValue < DataGrid1.VisibleRows And ColValue > 0 And ColValue < DataGrid1.VisibleCols Then
        SaveValue = DataGrid1.Columns(ColValue).CellValue(DataGrid1.RowBookmark(RowValue))
        DataGrid1.Drag 1
    End If
    Debug.Print RowValue; ColValue
End Sub


Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BIBLIO.MDB;Persist Security Info=False"
    Adodc1.RecordSource = "select * from Authors"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    Text1 = ""
End Sub

Private Sub Text1_Change()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BIBLIO.MDB;Persist Security Info=False"
    Adodc1.RecordSource = "select * from Authors where Author >='" & Trim(Text1) & "'"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub

基于ADODC控件和DATAGRID控件的灵活应用。具体做法： 

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。 

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。 

SQL查询语言主要结构为： 

Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句] 

查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。 

SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮控件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，再添加ADODC1控件再添其他内容。