如何调用数据库中的数据

你先你的程序上添加Activex data object Library 控件然后你可以连接数据库， 连接数据库的时候你要用connection duixiang

我给你写连接数据库的代码

Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\mydatabase.mdbUser Id=adminPassword=

这个语句通过连接数据库

C:\mydatabase.mdb

这个地址你自己换你数据库文件保存的地址。

好好学习好好努力

sql中只要建立表即可,无需进行其他设置

在web.config中设置数据库连接字符串

<appSettings>

<add key="SqlConn" value="Server=服务器IPDataBase=数据库名UID=用户名PWD=密码"/>

</appSettings>

2.在登录页面登录按钮代码中加入语句

protected void LogButton_Click(object sender, EventArgs e)

      {

          string userid = this.Userid.Text.Trim()//用户名

string pwd = FormsAuthentication.HashPasswordForStoringInConfigFile(this.Pwd.Text.Trim(), "MD5")//密码

          string ConStr = ConfigurationManager.AppSettings["SqlConn"].ToString()

          SqlConnection sqlconn = new SqlConnection(ConStr)

          sqlconn.Open()//建立连接

          string mysql = "select count(*) as iCount from 表名 where UserID = '"+userid+"'"//查询语句

          SqlCommand cmd = new SqlCommand(mysql, sqlconn)

          SqlDataReader sqlreader = cmd.ExecuteReader()

          sqlreader.Read()//查询表数据

          string Count = sqlreader["iCount"].ToString()

          sqlreader.Close()

          sqlconn.Close()

          if (Count != "0")

          {

              sqlconn.Open()

              string mysql1 = "select * from 表名 where UserID = '" + userid + "'"

              SqlCommand cmd1 = new SqlCommand(mysql1, sqlconn)

              SqlDataReader sqlreader1 = cmd1.ExecuteReader()

              sqlreader1.Read()

              string DrPwd = sqlreader1["UserPwd"].ToString().Trim()

              string DrUser = sqlreader1["UserName"].ToString().Trim()

              sqlreader1.Close()

              sqlconn.Close()

              if (DrPwd == pwd)

              {

                  Session["logname"] = DrUser

                  Session["logstate"] = 1

                  Response.Redirect("main.aspx")    //登录下级界面

              }

              else

              {

                  Response.Write("登录密码错误!")

                  this.Pwd.Focus()

              }

          }

          else

          {

              Response.Write("登录用户错误!")

              this.Userid.Focus()

          }

       

      }

你可以参考以上登录代码,自行编辑查询语句,实现调用数据库数据的功能.望采纳,谢谢.

连接什么样的数据库？ SQL 还是 Access ?

我现在有两个连接数据库的

下面是一个连接数据库的模块，大家可以使用它来连接SQL数据库，使用起来比ADO控件还简单：

代码如下：

Public rsNew As ADODB.Recordset

Public CnNew As ADODB.Connection

Public addFlag As Boolean

'连接数据库

Public Function OpenCn() As Boolean

Dim Mag As String

On Error GoTo strErrMag

Set CnNew = New ADODB.Connection

CnNew.ConnectionTimeout = 25

CnNew.Provider = "sqloledb"

CnNew.Properties("data source").value = "" 'SQL服务器的名

CnNew.Properties("initial catalog").value = "pubs"'库名

CnNew.Properties("integrated security").value = "SSPI"'登陆类型

'con.Properties("user id").value = "sa"

'con.Properties("password").value = "wwww"

CnNew.Open

OpenCn = True

addFlag = True

Exit Function

strErrMag:

Mag = "数据库末连接"

Call MsgBox(Mag, vbOKCancel, "错误:数据库连接")

addFlag = False

End

End Function

Public Sub Clocn()

'闭关数据库

On Error Resume Next

If CnNew.State <>adStateClosed Then CnNew.Close

Set CnNew = 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 rsNew = New ADODB.Recordset

If addFlag = False Then rpy = OpenCn

With rsNew

.ActiveConnection = CnNew

.CursorLocation = adUseClient

.CursorType = adOpenKeyset

.LockType = adLockOptimistic

.Open strSql

End With

addFlag = True

OpenRs = True

Exit Function

strErrMag:

Mag = "数据库数据集末连接"

Call MsgBox(Mag, vbOKOnly, "错误:数据库连接")

OpenRs = False

End

End Function

Public Sub cloRs()

'闭关数据集

On Error Resume Next

If rsNew.State <>adStateClosed Then rsNew.Close

Set rsNew = Nothing

End Sub

只要在你的标准模块中加入该代码，你就可以使用其中的函数来连接数据源了。

VB连接access数据库。

用VB做管理系统的时经常要加上数据库，最近我们做MIS课程设计，以前对VB和数据库很不了解，所以做起来很困难，现在学会点皮毛，想把这些经验和方法告诉还不会的人，以共同进步，我的观点是：知识不能独享，就像黑客知识一样，如果只有一个人知道别人不知道，这个国家就会受到别人的入侵，只有大家都掌握了，才可以保护自己的家园。现在学什么都要收费，这是我在学习中受到的阻力，感到很郁闷，呵呵，扯远了。今天告诉大家VB连接数据库的方法，我知道的有两种，因为我也是最近做了个管理系统才学会的。一种是在 adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易 *** 作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。一种是用代码设置数据库的路径，这种方法的优点就是只要源文件和数据库在同一文件夹下，无论移动到哪里都能连接上。我会逐一介绍：

如果没有建立好数据库的话,先建立一个数据库,然后建立一个表比如我们建的表名为message,然后把里面的字段名称和数据类型都按自己的需要设置好.然后保存就可以了.

打开Microsoft Visual Basic6.0 我用的是VB6.0,在需要调用数据库的窗体上加入一个adodc控件,默认名称为:Adodc1.默认的情况下工具栏里是没有这个控件的,可以打开工程---部件(快捷键CTRL+T),去掉只显示选定项的勾,然后勾上Microsoft ADO Data Control(OLEDB),然后确定,

工具栏就会多了一个adodc的控件。

第一种方法，设置adodc1的属以连接数据库.在adodc1控件上右键--Adodc属性--使用连接字符串--生成--Microsoft Jet 4.0 OLE DB Provider--下一步--选择或输入数据库名称---找到要连接的数据库后,确定.然后记录源设置属性. 如果要把内容提交到数据库一般使用adCmdTable. 表选择要连接的表。

设置完毕后就可以了.

如果我们想把内容提交到数据库.举个例子..

在窗体建立一个文本框,设置属性中的DataSource为adodc1 DataField为要连接的数据库的字段名。如果数据库中有字段，会让你选择。

设置好后在窗体加一个添加记录和一个提交的按钮，设置代码：

Private Sub Command1_Click()

Adodc1.Recordset.Update '保存

Adodc1.Refresh '刷新

End Sub

添加按钮代码:

Private Sub Command2_Click()

Adodc1.Recordset.AddNew '添加新纪录

Adodc1.Recordset("姓名").Value = Text1.Text

End Sub

第二种方法:

在窗体添加Adodc控件一个text控件 一个添加记录按钮一个提交按钮

在窗体设置代码:

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" + App.Path + "\db1.mdbPersist Security Info=False" '设置数据库路径

Adodc1.CommandType = adCmdText '设置记录源

Adodc1.RecordSource = "select * from message" '连接数据库的message表文件

Set Text1.DataSource = Adodc1

text1.DataField = "姓名"

End Sub

添加记录按钮代码：

Private Sub Command1_Click()

Adodc1.Recordset.AddNew '添加新纪录

End Sub

提交代码：

Private Sub Command2_Click()

Adodc1.Recordset.Update '保存

Adodc1.Refresh '刷新

End Sub

好了连接方法讲完了,我都在机子上测试过了,因该没有什么问题的。如果有问题请多看几遍，或看些别人写的程序代码，会有很大进步的，我的VB也不好,因为不是计算机专业的，老师也没有教很多,高手莫笑。好了我再给大家几个查询数据库常用的代码：

首记录按钮的代码：

Private Sub sjl_Click()

Adodc1.Recordset.MoveFirst

End Sub

上一条记录按钮代码：

Private Sub up_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst

End If

End Sub

下一条记录代码：

Private Sub down_Click()

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

End If

End Sub

末记录代码：

Private Sub mjl_Click()

Adodc1.Recordset.MoveLast

End Sub

删除记录代码：

Private Sub Command3_Click()

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

If (Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF) Then

MsgBox "已经无纪录", , "提示"

End If

End Sub

---