分享
 
 
 

VB程序如何访问数据库

王朝vb·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

通过【Data】控件访问数据库

(1)启动VB。

(2)出现如图10.12所示的新建工程的【新建】选项卡。

(图片较大,请拉动滚动条观看)

(3)出现如图10.13所示的VB主界面。

(4)如图10.14所示。

(5)出现如图10.15所示的【属性窗口】界面。

(图片较大,请拉动滚动条观看)

―――――――――――――――――――――――――――――――――――――

odbc;dsn=graduateDB;uid=scott;pwd=tiger;

―――――――――――――――――――――――――――――――――――――

(6)如图10.16所示。

(7)选择【Form1】窗体上出现名为Text1的【TextBox】控件。

(8)出现如图10.17所示的【TextBox】控件的属性窗口。

(9)按照和Text1同样的步骤添加名为Text2的【TextBox】控件,其主要的设置为。

(10)按照和Text2同样的步骤添加名为Text3的【TextBox】控件,其主要的设置为。

(11)设计好的窗体Form1如图10.18所示。

(图片较大,请拉动滚动条观看)

(12)在VB主界面的【快捷按钮区】单击运行快捷按钮,如图10.19所示。

(图片较大,请拉动滚动条观看)

(13)运行结果如图10.20所示。

(14)读者可以从本书的配套光盘上找到实例的配套程序。

【参见光盘文件】:第10章\使用Data控件访问数据库.vbp,窗体为Form1.frm。

(15)利用表格来表示上述过程中窗体的设置,如表10.1所示。

(图片较大,请拉动滚动条观看)

通过【ADODC】控件访问数据库

(1)启动VB,建立新的工程。

(2)如图10.21所示的VB主界面的【菜单栏】选择【工程】/【部件】选项。

(3)出现如图10.22所示的部件的【控件】选项卡。

(4)如图10.23所示。

(图片较大,请拉动滚动条观看)

(5)如图10.24所示。

(6)出现如图10.25所示的属性页的【通用】选项卡。

(图片较大,请拉动滚动条观看)

(7)切换到如图10.26所示的属性页的【身份验证】选项卡。

(8)切换到如图10.27所示的属性页的【记录源】选项卡。

(图片较大,请拉动滚动条观看)

(9)主要的属性设置如图10.28所示。

(图片较大,请拉动滚动条观看)

(10)向Form1窗体中添加一个名为Text2的【TextBox】控件。

(11)向Form1窗体中添加一个名为Text3的【TextBox】控件。

(12)读者可以从本书的配套光盘上找到实例的配套程序。

【参见光盘文件】:第10章\使用ADODC控件访问数据库.vbp,窗体为Form2.frm。

(13)利用表格来表示上述过程中窗体的设置,如表10.2所示。

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

(14)程序运行结果如图10.29所示。

通过【ADODB】编程对象访问数据库

1. 引用【ADODB】对象

要使用【ADODB】对象,必须首先进行引用。

(1)启动VB,新建工程。

(2)如图10.30所示。

(3)出现如图10.31所示的【引用】界面。

(图片较大,请拉动滚动条观看)

2. 使用【ADODB】对象编程

(1)设计如图10.32所示的窗体Form3。

利用表格来表示上述过程中窗体的设置,如表10.3所示。

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

(2)读者可以从本书的配套光盘上找到实例的配套程序。

【参见光盘文件】:第10章\使用ADODB对象编程访问数据库.vbp,窗体为Form3.frm。

(3)窗体Form3内所有的VB代码如下。

―――――――――――――――――――――――――――――――――――――

‘强制性声明变量后才能使用

Option EXPlicit

‘定义RS为ADODB对象的记录集

Dim Rs As New ADODB.Recordset

‘定义conn为ADODB对象的连接

PRivate conn As ADODB.Connection

‘窗体运行时初始化过程

Private Sub Form_Load()

‘定义ConnStr为连接字符串

Dim ConnStr As String

‘定义Cmd为ADODB的命令字符串

Dim Cmd As New ADODB.Command

Set conn = New ADODB.Connection

ConnStr = "DSN=graduateDB;uid=scott;pwd=tiger;"

conn.ConnectionString = ConnStr

‘按照ConnStr的内容连接数据库

conn.Open

‘查询数据表dept的内容

With Cmd

.ActiveConnection = conn

.CommandType = adCmdTable

.CommandText = "dept"

End With

‘将数据表dept的内容送记录集RS

With Rs

.CursorLocation = adUseClient

.CursorType = adOpenStatic

.LockType = adLockPessimistic

.Open Cmd

End With

‘定义3个文本框的数据源为RS

Set Text1.DataSource = Rs

Set Text2.DataSource = Rs

Set Text3.DataSource = Rs

‘定义3个文本框显示的字段

Text1.DataField = "DEPTNO"

Text2.DataField = "DNAME"

Text3.DataField = "LOC"

End Sub

‘单击【首记录】按钮的执行过程

Private Sub CmdFirst_Click()

Rs.MoveFirst

Rs.Update

End Sub

‘单击【上记录】按钮的执行过程

Private Sub CmdPrevious_Click()

Rs.MovePrevious

If Rs.BOF Then

Rs.MoveFirst

Rs.Update

End If

End Sub

‘单击【下记录】按钮的执行过程

Private Sub CmdNext_Click()

Rs.MoveNext

If Rs.EOF Then

Rs.MoveLast

Rs.Update

End If

End Sub

‘单击【末记录】按钮的执行过程

Private Sub CmdLast_Click()

Rs.MoveLast

Rs.Update

End Sub

‘单击【退出】按钮的执行过程

Private Sub CmdExit_Click()

conn.Close

Set conn = Nothing

Unload Me

End Sub

―――――――――――――――――――――――――――――――――――――

(4)窗体Form3的运行结果如图10.33所示。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有