请教

Question

  如何在VB中使用简单的数据库，因本人为刚接外VB，
                                     谢谢

Answer 1

去www.dapha.net下几个源码看看

Answer 2

使用Access的例子
先引用ADO组件,MicroSoft ActiveX Data Objects 2.X Library 
Public Function M_Access(M_AccessName As String)
Dim M_temp As String
Dim M_Error As String
On Error GoTo ine
Set conn = New Connection
Set rs = New ADODB.Recordset
M_temp = ""
M_temp = App.Path + "\" & M_AccessName & ";"
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & M_temp & ";"
Set rs = conn.Execute("select * from login where number=1")
U_Setting.name = rs.Fields(0).value
U_Setting.jname = rs.Fields(1).value
U_Setting.adress = rs.Fields(2).value
U_Setting.tel = rs.Fields(3).value
U_Setting.fax = rs.Fields(4).value
U_Setting.zip = rs.Fields(5).value
U_Setting.lxr = rs.Fields(6).value
U_Setting.Servername = rs.Fields(7).value
U_Setting.Databasename = rs.Fields(8).value
U_Setting.odbc = rs.Fields(9).value
U_Setting.username = rs.Fields(11).value
U_Setting.Password = rs.Fields(12).value
rs.Close
conn.Close
GoTo inerr
ine:
   M_Error = "数据库错误号：" & Err.Number & " 错误内容：" & Err.Description
   MsgBox M_Error, , "错误信息"
inerr:
Set rs = Nothing
End Function

Answer 3

连接SQL-Server的例子
Public Function M_SqlServer(M_Form As Form) As Boolean
'sqlserver数据库连接
Dim con As String
Dim M_temp As String
On Error GoTo ine
M_SqlServer = True
Set conn = New Connection
Set rs = New ADODB.Recordset
conn.ConnectionTimeout = 8
conn.CursorLocation = adUseServer
con = "UID=" & U_Setting.username & ";PWD=" & U_Setting.Password & ";" _
   & "DATABASE=" & U_Setting.Databasename & ";" _
   & "SERVER=" & U_Setting.Servername & ";" _
   & "DRIVER={SQL SERVER};DSN='" & U_Setting.odbc & "';"
conn.ConnectionString = con
conn.Open
If M_Form.Text1.Text = "" Then
   MsgBox "请填写用户名。", , "用户信息"
   M_SqlServer = False
   GoTo inerr
End If
M_temp = "select * from 用户 where 用户名 = '" & M_Form.Text1.Text _
         & "' and 密码 = '" & M_Form.Text2.Text & _
         "' and 模块 = '" & M_Form.Combo1.Text & "'"
rs.Open M_temp, conn, adOpenKeyset
If rs.RecordCount <= 0 Then
   M_SqlServer = False
   GoTo inerr
End If
'权限表
U_Popedom.username = rs.Fields(0).value
U_Popedom.popedom = rs.Fields(3).value
U_Popedom.insert = rs.Fields(4).value
U_Popedom.delete = rs.Fields(5).value
U_Popedom.update = rs.Fields(6).value
U_Popedom.quary = rs.Fields(7).value
U_Popedom.prints = rs.Fields(8).value
rs.Close
'M_temp = ""
'M_temp = "select * from "
GoTo inerr
ine:
   MsgBox "连接数据库，请确认数据库参数设置。", , "错误信息"
   M_SqlServer = False
inerr:
Set rs = Nothing
End Function