求数据库课程设计实例 要求用VB和SQL作的?
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。Connect...全部
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-11;uid=sa;pwd=;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=login;uid=sa;pwd=;"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 conn。Close Set conn = Nothing End Sub Public Function openrs(ByVal strsql As String) As Boolean ''连接数据库记录集 Dim mag As String Dim rpy As Boolean On Error GoTo strerrmag Set rs = New ADODB。
Recordset If addFlag = False Then rpy = True With rs 。ActiveConnection = conn 。CursorLocation = adUseClient 。
CursorType = adOpenKeyset 。LockType = adLockOptimistic 。Open strsql End With addFlag = True openrs = True Exit Function strerrmag: mag = "data not connect" Call MsgBox(mag, vbOKCancel, "error:connect") openrs = False End End Function Public Sub clors() On Error Resume Next If rs。
State <> adStateClosed Then rs。Clone Set rs = Nothing。收起