功能基本齐全，连接数据源时，要注意ODBC的设置。。。

用vb实现连接sql数据库并查询的小程序 综合了网上一些实例，修改连接信息后绝对可用

计算机毕业设计VB+SQL航空公司管理系统（源码+论文+开题+PPT）2009年优秀毕业设计 完全免费送给大家！

此系统论文为毕业设计提供！人事工资管理系统（VB+SQL）

小区物业管理VB+SQL，原创，有VB代码，数据库文件，可执行程序，论文。

全套毕业设计，希望对你有帮助。

VB与sql设计代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '选择普通用户登录 If Me.RadioButton1.Checked Then Dim str As String str = "data source=PC-201103171305\SQLEXPRESS;database=学生信息库;user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 普通用户where 用户名='" & TextBox1.Text.ToString().Trim() & "' and 密码='" & TextBox2.Text.ToString().Trim() & " '" Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理系统As New 学生信息管理系统 学生成绩管理系统.添加DToolStripMenuItem.Enabled = False 学生成绩管理系统.修改KToolStripMenuItem.Enabled = False 学生成绩管理系统.删除DToolStripMenuItem.Enabled = False 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.高级用户信息管理ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox("对不起，用户名或密码错误！重新输入（请正确选择用户类型）", 16, "警告") Me.TextBox1.Text = "" Me.TextBox2.Text = "" TextBox1.Focus() End If Catch ex As Exception End Try End If '选择高级用户登录 If Me.RadioButton2.Checked Then Dim str As String str = "data source=PC-201103171305\SQLEXPRESS;database=学生信息库;user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 高级用户where 用户名='" & TextBox1.Text.ToString().Trim() & "

基于VB的SQL_Server数据库与Word文档的数据交互，能够为你提供新的想法

使用说明 1.在使用源程序前，请先创建数据库。具体方法是在 Microsoft SQL Server 2000的“查询分析器”中打开SQL文件夹中的数据库SQL脚本，然后按F5执行脚本，即可生成实例所需要的数据库。 2.配置ODBC数据源，具体方法可以参考本书光盘pic文件夹中的图片。 3.在Visual Basic 6.0开发环境中打开Code文件夹中的工程项目文件，即可使用实例的源代码

VB+SQL自动点歌系统设计(论文+源代码).zip