求数据库课程设计实例 要求用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。收起
