VB与SQL数据库的连接

2024-05-16

1. VB与SQL数据库的连接

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：
“Public conn1  As SqlConnection = New SqlConnection _
("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：
("server=.; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

VB与SQL数据库的连接

2. VB怎么连接访问Access数据库

使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即： 

①数据访问对象/Jet 

②为ODBC API编程 

③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程 

④RDO 远程数据对象(RemoteData Objects) 

⑤ADO 数据对象(Active Data Objects) 

1、数据访问对象/Jet 

VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。 

注释：Form Declarations 

Dim mydb As Database 

Dim mydynaset As Dynaset オ 

Private Sub Form_Load() 

Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales") 

Set mydynaset = mydb CreateDynaset("Select*from Customers") オ 

End Sub ァ 

上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。 

2、利用ODBC API编程 

ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVR.DLL)把它们送到服务器中。 

下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。 

Global giHEnv As Long 

Global giHDB As Long 

Global giHStmt As Long 

Dim myResult As integer 

Dim myConnection As Srting 

Dim myBuff As String*256 

Dim myBufflen As Integer 

If SQLAllocEnv(giHEnv)SQL_SUCCESS Then 

MsgBox"Allocation couldn注释：t happen!" 

End If 

If SQLAllocConnect(giHEnv,giHDB)SQL_SUCCESS Then 

MsgBox "SQL Server couldn注释：t connect!" 

End If 

myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales" 

myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED) 

myResult=SQLAllocStmt(giHDS,giHStmt) 

myResult=SQLFreeStmt(giHStmt,SQL_COLSE) 

rsSQL="Select * from Customers Where City = "Hunan"" 

myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL)) 

3、使用VBSQL对DB库API编程 

DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件： 

VBSQL.VBX： 包含库函数，具有访问重要的消息和处理错误的能力

3. 如何用VB连接SQL数据库做登录

VB连接SQL数据库，可通过ADO数据对象和SQL结构化查询语言实现。
ADO (ActiveX 数据对象)， 这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft 和非 Microsoft 的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。
结构化查询语言(Structured Query Language)简称SQL，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。
代码示例：
Private Sub XPButton1_Click()
    On Error GoTo finish '防错代码，防止意外而导致的退出
    sql = "select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'"
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=**;Pwd=***;Data Source=**;Initial Catalog=***"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    '以上使用最通用的方法来查询数据库中是否有匹配的记录
    If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的
        If pnum < 2 Then 'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出
            pnum = pnum + 1
            MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum
            rs.Close
            cn.Close
            Text1.Text = ""
            Text2.Text = ""
            Text1.SetFocus
            Exit Sub
        Else
            MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"
            End
        End If
    Else
        loginname = rs.Fields(0)
        Form1.Show
        rs.Close
        cn.Close
    End If
    Exit Sub
finish:
    MsgBox Err.Description
    rs.Close
    cn.Close
End Sub
注意 cn.ConnectionString此句需依据实际的SQL数据库建立连接获得的字符串。

如何用VB连接SQL数据库做登录

4. 如何用VB连接SQL数据库做登录

一、界面设计
各控件名称属性分别为：label1  、text1 、label2、text2、commandok、cmdcancel

登录成功后显示的窗体：

代码设计如下：
'首先添加一个模块，写上以下通用声明和Sub main()：

Public conn As ADODB.Connection    '通用（声明）
Sub main()
    Set conn = New ADODB.Connection   '通用（main）
     conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
     + "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1"      '连接数据库代码
    conn.Open
frmLogin.Show     '首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体
End Sub
'在Frmlogin 代码窗口，为cmdok控件写以下代码：
Private Sub cmdok_Click()
  If text1.Text = "" Then
        MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
        text1.SetFocus
        Exit Sub       '若用户名文本框内为空，则出现提示框
    End If
    If text2.Text = "" Then
        MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
        text2.SetFocus
        Exit Sub     '若输入密码文本框为空，也出现提示框
    End If
    Dim strSQl As String    
    strSQl = "select * from User1 where username='" & Trim$(text1.Text) & "' and pwd='" & Trim$(text2.Text) & "' "    
    '书写SQL代码，查询User1表中是否存在窗体中用户输入的信息。
    Dim str As New ADODB.Recordset
    Set str = New ADODB.Recordset
    str.CursorLocation = adUseClient
    str.Open strSQl, conn, adOpenStatic, adLockReadOnly
    
    With str
        If .State = adStateOpen Then .Close
        .Open strSQl
        If .EOF Then
            Try_times = Try_times + 1
            If Try_times >= 3 Then
                MsgBox "您已连续三次输入错误，系统将自动关闭", vbOKOnly + vbCritical, "警告"
                Unload Me            '若用户连续输入3次错误密码，则系统关闭
            Else
                MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"
                text1.SetFocus
                text1.Text = ""
                text2.Text = ""
            End If
        Else
            
            Unload Me    '若登录成功，则隐藏当前窗体
            
          Form2.Show    '然后显示Form窗体            
        End If
    End With
End Sub
Private Sub cmdCancel_Click()    
End         '若单击Cmdcel按钮，则结束应用程序
End Sub
运行中存在的问题：
代码中有Dim conn As adodb.connection，运行时显示"用户定义类型未定义"
解决方法：点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”
然后就就可以正常运行了。

5. 如何用VB连接SQL数据库做登录

一、配置ODBC数据源 
1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。 
2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQL Server”。选好单击完成 
3、在打开“建立新的数据源到SQL Server”对话框，在“名称”文本框输入新数据源的名称，描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。 
4、选择使用用户输入登录的ID和密码的SQL 验证 
。选连接SQL默认设置 
5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。 

二、VB中设置连接 
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。 
2、对ADO部件点右键选属性，选择使用连接字符串，按生成。 
3、选择Mircosoft OLE DB Providar for SQL Server 
按下一步 
4、 
1、输入服务器名称 
2、使用指定的服务器信息 
3、在服务器上选择数据库 
这时就选择你在SQL Server建好的数据库就行了 
5、测试连接可以看到连接是否成功！

如何用VB连接SQL数据库做登录

6. 如何用VB连接SQL数据库做登录

VB连接SQL数据库，可通过ADO数据对象和SQL结构化查询语言实现。
ADO (ActiveX 数据对象)， 这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft 和非 Microsoft 的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。
结构化查询语言(Structured Query Language)简称SQL，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。
代码示例：
Private Sub XPButton1_Click()
    On Error GoTo finish '防错代码，防止意外而导致的退出
    sql = "select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'"
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(默认为:MERRYCHINA)" '这是连接SQL数据库的语句 
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    '以上使用最通用的方法来查询数据库中是否有匹配的记录
    If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的
        If pnum < 2 Then 'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出
            pnum = pnum + 1
            MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum
            rs.Close
            cn.Close
            Text1.Text = ""
            Text2.Text = ""
            Text1.SetFocus
            Exit Sub
        Else
            MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"
            End
        End If
    Else
        loginname = rs.Fields(0)
        Form1.Show
        rs.Close
        cn.Close
    End If
    Exit Sub
finish:
    MsgBox Err.Description
    rs.Close
    cn.Close
End Sub
注意 cn.ConnectionString此句需依据实际的SQL数据库建立连接获得的字符串。

7. 如何用VB建立数据库

1、首先点击打开主菜单栏中的“外接程序”选项。

2、然后在弹出来的窗口中点击打开“可视化数据管理器”，出现下图中的界面。

3、然后单击文件中的新建，选择“microsot access”，“version 7.0”，弹出保存界面，点击保存后出现如下界面。

4、然后右键单击properties，选择“新建表”，输入表名称，添加字段。

5、然后打开类型，选择字段类型的大小，回车确定。

6、然后点击“生成表”选项。

7、然后双击“1”或者右键单击选择打开。

8、然后输入值后工具栏会变化。

9、然后点击添加就完成了。

如何用VB建立数据库

8. 在VB中怎样连接sql数据库的具体操作？

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：
“Public conn1  As SqlConnection = New SqlConnection _
("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：
("server=.; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。
最新文章
热门文章
推荐阅读