vb代码(小白常用).doc

ADODC数据库。 设置数据库路径： Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + \data\devicemanage.mdb;Persist Security Info=False 设置数据库路径 Adodc1.CommandType = adCmdText 设置记录源 strSQL = Text4.Text + AND 专业= + Combo1.Text + Adodc1.RecordSource = strSQL Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 Set Text1.DataSource = Adodc1 Text1.DataField = 内容简介 Adodc1.Recordset.AddNew 添加新纪录 Adodc1.Recordset.Delete 删除记录代码: Adodc1.Recordset.Update 保存 Adodc1.Refresh 刷新 Adodc1.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0;Data Source = App.Path \data\锅炉参数.accdb;Persist Security Info=False Adodc1.CommandType = adCmdText 设置记录源 strSQL = SELECT * FROM 煤质资料 Adodc1.RecordSource = strSQL Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 全部条件查询： Private Sub Command6_Click() Dim iidd As String iidd = 0 strSQL0 = select * from Frame1.Caption If Text2.Text And Text3.Text Then strSQL0 = strSQL0 + where (开始时间 = + # + Text2.Text + # + AND 开始日期= + # + Text3.Text + #) iidd = 1 End If If Text4.Text And Text5.Text Then If iidd = 1 Then strSQL0 = strSQL0 + and (结束日期 = + # + Text4.Text + # + AND 结束日期 = + # + Text5.Text + #) Else strSQL0 = strSQL0 + where (结束日期 = + # + Text4.Text + # + AND 结束日期 = + # + Text5.Text + #) End If iidd = 1 End If If Text6.Text Then If iidd = 1 Then strSQL0 = strSQL0 + AND 工作内容 LIKE % + Text6.Text + % Else strSQL0 = strSQL0 + where 工作内容 LIKE % + Text6.Text + % End If iidd = 1 End If strSQL = strSQL 0 Call sysrecord(strSQL) End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If Combo1.Text Then Text5.Text = select * from 现场设备 where 机组= + Label4.Caption + + AND 专业= + Combo1.Text + + AND 系统= + DataGrid1.Text + + And 现场设备名称 Like % + Frame6.Caption + % Frame1.Caption = DataGrid1.Text fpath = Text2(3).Text If fpath = Then fpath = Text3.Text Image1.Picture = LoadPicture(fpath) End If Frame5.Visible = False Command11.Caption = 显示系统记事 End S