
1、打开电脑,点击开始菜单。
2、打开<控制面板>。
3、在<调整计算机的设置>中,点击<系统和安全>。
4、点击<管理工具>。
5、点击<数据源(ODBC)>。
6、点击<系统用户>,然后,点击按钮<添加>。
7、在<创建数据源>里,找到Microsoft Access Driver(*.mdb),选中.然后点击完成。
8、在<ODBC Microsoft Access 安装>的<数据源名(N)>,填写数据有名称,然后点击<数据库>中的<选择(S)...>。
9、在<选择数据库>里,<目录(D):>里,按路径找到数据库文件,选中,点击确定。回到<ODBC Microsoft Access 安装>点击确定。最后回到<ODBC数据源管理器>,点击确定,完成配置。
这要用到ado.net的一些知识。主要有connection、command、dataadapter、datareader、transaction等对象完成数据库连接任务。连接数据库主要有以下步骤:
1、建立连接
2、打开连接
3、启动事务处理(如果需要的话)
4、执行命令
5、接受并处理执行结果
6、回滚事务(如果启动了事务,并且执行命令的结果不是期望值或发生其它异常)
7、重复第4步(如果启动了事务,并且有多个命令需要作为同一个事务执行)
8、提交事务(如果启动了事务)
9、关闭连接
至于代码就非差简单了,网上到处都是。执行数据库命令大概有4类,返回影响行数(增、删、改)、返回结果集表格(查)、返回结果集的左上角(一般用于汇总等 *** 作,例如select
count(*)...)。这些只要在command执行的时候控制一下儿就好了。我建议你到网上搜一下儿ado.net的五个对象,看看就明白了。
1·绑定数据源来进行连接2.用代码连接
先到数据库建立一个数据库和相应的表
连接数据库的代码:
Dim str As String = "Data Source=服务器名Initial Catalog=数据库名Persist Security Info=TrueUser ID=Password="
dim conn As SqlClient.SqlConnection
try
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
登录代码:Dim str As String = "Data Source=服务器名Initial Catalog=数据库名Persist Security Info=TrueUser ID=Password="
dim conn As SqlClient.SqlConnection
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
sqlstr = "Select * From Amd Where AmdName='" &TextBox1.Text &"' And AmdPwd = '" &TextBox2.Text &"'"
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)
Dim dr As SqlClient.SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read = True Then '判断一条记录为真
kf.Show() '显示下个窗体
Me.Hide() ’隐藏当前窗体
Else
MessageBox.Show("输入信息有误!", "提示")
TextBox1.Text = ""
TextBox2.Text = ""
End If
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)