|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用DBaaS能让收入损失从其他业务上得到弥补,如软件更新和硬件管理。也许决定走DBaaS之路的客户可能会跳过解决方案提供商,尽管这个决策看起来有点短视。
经由过程【Data】控件会见数据库
(1)启动VB。
(2)呈现如0.12所示的新建工程的【新建】选项卡。
(3)呈现如0.13所示的VB主界面。
(4)如0.14所示。
(5)呈现如0.15所示的【属性窗口】界面。
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
odbc;dsn=graduateDB;uid=scott;pwd=tiger;
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
(6)如0.16所示。
(7)选择【Form1】窗体上呈现名为Text1的【TextBox】控件。
(8)呈现如0.17所示的【TextBox】控件的属性窗口。
(9)依照和Text1一样的步骤增加名为Text2的【TextBox】控件,其次要的设置为。
(10)依照和Text2一样的步骤增加名为Text3的【TextBox】控件,其次要的设置为。
(11)计划好的窗体Form1如0.18所示。
(12)在VB主界面的【快速按钮区】单击运转快速按钮,如0.19所示。
(13)运转了局如0.20所示。
(14)读者能够从本书的配套光盘上找到实例的配套程序。
【拜见光盘文件】:第10章利用Data控件会见数据库.vbp,窗体为Form1.frm。
(15)使用表格来暗示上述过程当中窗体的设置,如表10.1所示。
经由过程【ADODC】控件会见数据库
(1)启动VB,创建新的工程。
(2)如0.21所示的VB主界面的【菜单栏】选择【工程】/【部件】选项。
(3)呈现如0.22所示的部件的【控件】选项卡。
(4)如0.23所示。
(5)如0.24所示。
(6)呈现如0.25所示的属性页的【通用】选项卡。
(7)切换到如0.26所示的属性页的【身份考证】选项卡。
(8)切换到如0.27所示的属性页的【纪录源】选项卡。
(9)次要的属性设置如0.28所示。
(10)向Form1窗体中增加一个名为Text2的【TextBox】控件。
(11)向Form1窗体中增加一个名为Text3的【TextBox】控件。
(12)读者能够从本书的配套光盘上找到实例的配套程序。
【拜见光盘文件】:第10章利用ADODC控件会见数据库.vbp,窗体为Form2.frm。
(13)使用表格来暗示上述过程当中窗体的设置,如表10.2所示。
(14)程序运转了局如0.29所示。
经由过程【ADODB】编程工具会见数据库
1.援用【ADODB】工具
要利用【ADODB】工具,必需起首举行援用。
(1)启动VB,新建工程。
(2)如0.30所示。
(3)呈现如0.31所示的【援用】界面。
2.利用【ADODB】工具编程
(1)计划如0.32所示的窗体Form3。
使用表格来暗示上述过程当中窗体的设置,如表10.3所示。
(2)读者能够从本书的配套光盘上找到实例的配套程序。
【拜见光盘文件】:第10章利用ADODB工具编程会见数据库.vbp,窗体为Form3.frm。
(3)窗体Form3内一切的VB代码以下。
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
‘强迫性声明变量后才干利用
OptionExplicit
‘界说RS为ADODB工具的纪录集
DimRsAsNewADODB.Recordset
‘界说conn为ADODB工具的毗连
PrivateconnAsADODB.Connection
‘窗体运转时初始化历程
PrivateSubForm_Load()
‘界说ConnStr为毗连字符串
DimConnStrAsString
‘界说Cmd为ADODB的命令字符串
DimCmdAsNewADODB.Command
Setconn=NewADODB.Connection
ConnStr="DSN=graduateDB;uid=scott;pwd=tiger;"
conn.ConnectionString=ConnStr
‘依照ConnStr的内容毗连数据库
conn.Open
‘查询数据表dept的内容
WithCmd
.ActiveConnection=conn
.CommandType=adCmdTable
.CommandText="dept"
EndWith
‘将数据表dept的内容送纪录集RS
WithRs
.CursorLocation=adUseClient
.CursorType=adOpenStatic
.LockType=adLockPessimistic
.OpenCmd
EndWith
‘界说3个文本框的数据源为RS
SetText1.DataSource=Rs
SetText2.DataSource=Rs
SetText3.DataSource=Rs
‘界说3个文本框显现的字段
Text1.DataField="DEPTNO"
Text2.DataField="DNAME"
Text3.DataField="LOC"
EndSub
‘单击【首纪录】按钮的实行历程
PrivateSubCmdFirst_Click()
Rs.MoveFirst
Rs.Update
EndSub
‘单击【上纪录】按钮的实行历程
PrivateSubCmdPrevious_Click()
Rs.MovePrevious
IfRs.BOFThen
Rs.MoveFirst
Rs.Update
EndIf
EndSub
‘单击【下纪录】按钮的实行历程
PrivateSubCmdNext_Click()
Rs.MoveNext
IfRs.EOFThen
Rs.MoveLast
Rs.Update
EndIf
EndSub
‘单击【末纪录】按钮的实行历程
PrivateSubCmdLast_Click()
Rs.MoveLast
Rs.Update
EndSub
‘单击【加入】按钮的实行历程
PrivateSubCmdExit_Click()
conn.Close
Setconn=Nothing
UnloadMe
EndSub
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
(4)窗体Form3的运转了局如0.33所示。
使用DBaaS能让收入损失从其他业务上得到弥补,如软件更新和硬件管理。也许决定走DBaaS之路的客户可能会跳过解决方案提供商,尽管这个决策看起来有点短视。 |
|