加载ADO部件
“工程”->“部件”(或者Ctrl+T),然后选择以下插件,然后“应用”+“确定"
07
2023
03
11:38:43
VB+SQL Server 2008 基础编程笔记(数据库连接)
Dim rs As New ADODB.Recordset
Dim strCon As String
Set cn = New ADODB.Connection
strCon = "。。。" '填写连接字符串,可选将 Data Source=127.0.0.1 换进去
cn.ConnectionString = strCon
cn.Open '数据库打开成功
Dim SQL As String
SQL = "。。。" '填写SQL查询命令
代码链接部分
然后,在代码连接部分可以粘贴上如下代码,注意注释
解释一下: cn(ADODB.Connection)代表数据库对象,rs(ADODB.Recordset)代表查询结果的游标(即查询结果中的一行记录)。如果需要查询行数,游标必须是静态的,即rs.Open SQL, cn, 1, 1中的第一个1必学改为3(1是只读,2是动态,3是静态) 补充: 直接执行SQL命令cn.Execute (SQL) 若添加了DataGrid控件,并在窗体中画出了一个实例,则可以将Recordset对象实例(rs)中的内容直接显示在其中。 rs.Open SQL, cn, 3, 1 Set DataGrid1.DataSource = rs DataGrid1.Refresh DataGrid对象调整列宽 For Col = 0 To DataGrid1.Columns.Count - 1 DataGrid1.Columns(Col).Width = 2300 Next Col DataGrid对象隐藏某列(0列) DataGrid1.Columns(0).Visible = False
附上Recordset的基本操作表 rs.RecordCount:查询结果的行数 rs(i).Name:第i个字段的名称,i为0至rs.Fields.Count-1 rs(i):第i个字段的数据,i为0至rs.Fields.Count-1 rs(“字段名”):指定字段的数据。 rs.EOF:是否最后一条记录。 rs.MoveFirst:指向第一条记录。 rs.MoveLast:指向最后一条记录。 rs.MovePrev:指向上一条记录。 rs.MoveNext:指向下一条记录。 rs.Move n:跳转n行,n大于0向下,n小于0向上 rs.GetRows:将数据放入数组中。 rs.Properties.Count:ADO的ResultSet或Connection的属性个数。 rs.Properties(item).Name:ADO的ResultSet或Connection的名称。 rs.Properties:ADO的ResultSet或Connection的值。 rs.close():关闭连接。
操作 | 命令 | 备注 |
加载窗体 | Load Form1 | 窗体会被加载,但是不会被显示 |
卸载窗体 | Unload Form1 | 窗体会被关闭 |
显示窗体 | Form1.Show | 窗体会被显示出来 |
隐藏窗体 | Form1.Hide | 窗体会被隐藏,但是还在内存中 |
普通消息框
MsgBox("内容",,"标题")
判断型标题栏
Dim msg As Integer
msg = MsgBox("内容", vbYesNo, "标题")
If msg = vbYes Then
'...
End If
按钮类型 | 对应数值 | 描述 |
vbOKOnly | 0 | 只显示 OK 按钮。 |
VbOKCancel | 1 | 显示 OK 及 Cancel 按钮。 |
VbAbortRetryIgnore | 2 | 显示 Abort、Retry 及 Ignore 按钮。 |
VbYesNoCancel | 3 | 显示 Yes、No 及 Cancel 按钮。 |
VbYesNo | 4 | 显示 Yes 及 No 按钮。 |
VbRetryCancel | 5 | 显示 Retry 及 Cancel 按钮。 |
VbCritical | 16 | 显示 Critical Message 图标。 |
VbQuestion | 32 | 显示 Warning Query 图标。 |
VbExclamation | 48 | 显示 Warning Message 图标。 |
VbInformation | 64 | 显示 Information Message 图标。 |
If ... Then...Else If...End If
推荐本站淘宝优惠价购买喜欢的宝贝:
本文链接:https://hqyman.cn/post/3701.html 非本站原创文章欢迎转载,原创文章需保留本站地址!
休息一下~~
作者:hqy | 分类:技术文章 | 浏览:884 | 评论:0
发表评论:
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。