vb代码(小白常用)

strSQL = "SELECT * FROM煤质资料"
Adodc1.RecordSource = strSQL
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
全部条件查询：
Private Sub Command6_Click()
Dim iidd As String
Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
dirname = App.Path + "\Documentation\设备档案\" + Frame2.Caption + aaa
deleterec = MsgBox(dirname, vbYesNo, "新建目录")
If deleterec = vbYes Then
MkDir dirname＇新建目录
Command11.Caption = "显示系统记事"
End Sub
If MsgBox("请确认是否退出系统?", vbYesNo) = vbYes Then End‘退出系统
程序目录：App.Path
由数据库字义菜单：
n1 = Adodc5.Recordset.RecordCount - 1 '定义名称菜单
If Right(ta, 3) = "pdf" Then Call Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe" & ta, vbMaximizedFocus)
＇摁下右键
Private Sub File2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
strSQL = strSQL 0
Call sysrecord(strSQL)
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If Combo1.Text <> "&#utton And Form2.Visible = True Then Call newdocum
End Sub
找到VB编辑器主窗体的【工程】菜单－>【引用】，在弹出的窗体中选择【Microsoft ADO Ext. 2.X for DDL and Security】
Else
strSQL0 = strSQL0 + "where (结束日期>= " + "#" + Text4.Text + "#" + " AND结束日期<=" + "#" + Text5.Text + "#)"
End If
iidd = 1
End If
If Text6.Text <> "" Then
End Sub
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Frame1.Tag = "1" Then
Frame1.Left = Frame1.Left + X - x1
tbl.Columns.Append "Age", adInteger
tbl.Keys.Append "primarykey", adKeyPrimary, "no", "", "" '设置主键
Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Frame1.Tag = "1"
x1 = X
y1 = Y
End If
Frame1.ZOrder 0
Text5.Text = "select * from现场设备where机组='" + Label4.Caption + "'" + " AND专业='" + Combo1.Text + "'" + " AND系统='" + DataGrid1.Text + "'" + " And现场设备名称Like '%" + Frame6.Caption + "%'"
pstr = pstr & "Data Source=" & db
cat.Create pstr＇创建新的ＭＤＢ文件
cat.ActiveConnection = pstr
= "Table_One"
tbl.Columns.Append "No", adInteger‘整型
tbl.Columns.Append "Name", adVarWChar, 20‘表头名称，数据类型，字段长
End Sub
Private Sub Command8_Click()
If Label4.Caption <> 0 Then
If DataGrid2.Columns(4).Text = "" Then
aaa = Format(CDate(DataGrid2.Columns(1).Text), "yyyy-mm-dd")
窗口代码：
Dim rtn
'让窗口在顶层
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
'取消窗口在顶层
'rtn = SetWindowPos(F_V.hwnd, -2, 0, 0, 0, 0, 3)分享给你的朋友吧：i贴吧新浪微博腾讯微博QQ空间人人网豆瓣MSN
Frame1.Caption = DataGrid1.Text
fpath = Text2(3).Text
If fpath = "" Then fpath = Text3.Text
Image1.Picture = LoadPicture(fpath)
End If
Frame5.Visible = False
SetWindowPos Me.hwnd, 1, 0, 0, 0, 0, 3 '取消窗体顶置
SetWindowPos Me.hwnd, -2, 0, 0, 0, 0, 3 '取消窗体顶置
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 '窗体顶置
先建立类模块：
Option Explicit
ADODC数据库。
设置数据库路径：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data\devicemanage.mdb;Persist Security Info=False" '设置数据库路径
Frame1.Top = Frame1.Top + Y - y1
End If
End Sub
Private Sub Frame1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Frame1.Tag = ""
iidd = 0
strSQL0 = "select * from " & " " & Frame1.Caption & " "
If Text2.Text <> "" And Text3.Text <> "" Then
strSQL0 = strSQL0 + "where (开始时间>= " + "#" + Text2.Text + "#" + " AND开始日期<=" + "#" + Text3.Text + "#)"
Text10.DataField = "机组名称"
For n2 = 0 To n1
If n2 > 0 Then Load manupower(n2)