vb程序设计教程答案,一例的vb格式说明?

发布时间:

vb程序设计教程答案

vb程序设计教程答案

一例的vb格式说明?

1、form1表示窗体的name,代表一个窗体(form)2、caption表示form的一个属性,是窗体的标题3、“vb实例”是一个字符串连起来的一起是给name是form1的窗体设置标题为vb实例

求VB连接数据库实例?

VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2。6 library和 microsoft activeX Data objects recordset 2。

6两个组件,这是在连接数据前所必做的工作。2、接下来定义ADO的连接对象,如下所示:Set conn = New ADODB。ConnectionSet rs = New ADODB。Recordset第一种方法采用的是无源的数据库连接方法conn。

ConnectionString = "Driver={sql server}server=JSZX3-11uid=sapwd=database=wzc"conn。ConnectionTimeout = 30conn。

Openrs。Open "select 用户名,密码 from login where 用户名="" & Trim(Combo1。Text) & "" And 密码="" & Trim(Text1。

Text) & """, conn, adOpenStatic, adLockReadOnly, adCmdTextIf rs。EOF = True And rs。BOF Thenm = MsgBox("请重新登录", vbExclamation)Text1。

Text = ""Text1。SetFocusElseForm1。HideEnd Ifrs。Close这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:Set conn = New ADODB。

ConnectionSet rs = New ADODB。Recordsetconn。ConnectionString = "DSN=loginuid=sapwd="conn。ConnectionTimeout = 30conn。

Openrs。Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdTextDim i As StringFor t = 0 To Val(rs。

RecordCount) - 1i = Trim(rs。Fields("用户名")。Value)rs。MoveNextCombo1。AddItem iNext trs。Close下面是连接数据库具体代码:Public conn As New ADODB。

Connection Public rs As New ADODB。Recordset Public addFlag As Boolean Public Function OpenCn() As Boolean Dim mag As String On Error GoTo strerrmag Set conn = New ADODB。

Connection conn。ConnectionTimeout = 25 conn。Provider = "sqloledb" conn。Properties("data source")。Value = "127。

0。0。1" ""服务器的名字 conn。Properties("initial catalog")。Value = "chart" ""库名 conn。Properties("integrated security")。

Value = "SSPI" ""登陆类型 conn。Open OpenCn = True addFlag = True Exit Function strerrmag: mag = "Data can""t connect" Call MsgBox(mag, vbOKCancel, "Error:Data connect") addFlag = False End End Function Public Sub clocn() On Error Resume Next If conn。

State adStateClosed Then rs。Clone Set rs = Nothing。