急救 ----------VB.NET 与ACCESS 数据库连接

[新病毒]

我最近写了一股ACCESS数据库，已经连接上了，但是对于数据库的具体代码链接不是很了解！谢谢

[晓轩]

在system.data.oledb命名空间里有操作access数据库的相关类。
oledbconnection‘连接到数据库
oledbcommand’执行sql命令
oledbdatareader‘读取数据库记录
等等。看提示写吧。建议你在网上搜索几篇操作数据库的文章看下就可以上手了

[win7cc]

Imports System.Data.Oledb
dim provider,connstr,sql as string
provider="Microsoft.Jet.OLEDB.4.0;"
connstr="Provider="&provider&"datasource="&server.mappath("数据库")

[zwnylsf]

很巧,我这有一段代码,看看吧.
Private Sub FrmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strMusic As String = Application.StartupPath & "\sounds\background\music.mp3"
With Me.AxWindowsMediaPlayer1
.URL = strMusic
.Ctlcontrols.play()
End With

'Dim strwave As String = Application.StartupPath & "\me.wma"
'My.Computer.Audio.Play(strwave, AudioPlayMode.Background)
Dim db As New DataSet
Dim path As String = Application.StartupPath.ToString & "\mydb\information\myfriend.mdb"
Dim myconnection As New OleDbConnection("provider=microsoft.jet.OLEDB.4.0;" & "data source=" & path)
Dim strsql As String = "select 姓名,性别,家庭电话,移动电话,生日,工作,性格,联系地址,图片 from info"
Dim mycommand As New OleDbCommand(strsql, myconnection)
myconnection.Open()
Dim information As OleDbDataAdapter = New OleDbDataAdapter(mycommand)
information.Fill(db, "info")
Me.TxtName.DataBindings.Add("text", db, "info.姓名")
Me.TxtHomenumber.DataBindings.Add("text", db, "info.家庭电话")
Me.TxtMobile.DataBindings.Add("text", db, "info.移动电话")
Me.TxtBirthday.DataBindings.Add("text", db, "info.生日")
Me.TxtWork.DataBindings.Add("text", db, "info.工作")
Me.TxtAddress.DataBindings.Add("text", db, "info.联系地址")
Me.TxtChar.DataBindings.Add("text", db, "info.性格")
'Me.PctMyfriend.DataBindings.Add("image", db, "info.图片")
With Me.LbxShow
.DataSource = db
.DisplayMember = "info.姓名"
End With
Me.ToolStripStatusLabel4.Text = Me.BindingContext(db, "info").Count
myconnection.Close()
Me.ToolStripStatusLabel5.Text = "浏览"

End Sub

[shu_yun]

这些不一定要自己写的吧?
可以用工具生成,比如建一个udl文件,再在里面设置相应的值,再用文本文件打开,就OK

另外介绍个网站给你
http://www.connectionstrings.com/
这里面有所有数据库的连接

[新病毒]

大哥太感谢了 问题解决了 请问为什么改那么一下就成了呢？？？？

[晓轩]

t-sql语法要求参数前后要有'。就像你给string赋值要加""

[josephSC]

文本access加双引号,sql单引号

[新病毒]

恩 明白了 还是要多看看书啊 呵呵

[新病毒]

非常感谢啊 对我很有帮助

[新病毒]

小弟还有一个疑问如何进行更改数据库连接，让程序不管移植到哪都能够使用数据库？？？？？？

[晓轩]

[Quote=引用 3 楼 zwnylsf 的回复:]
很巧,我这有一段代码,看看吧.
Private Sub FrmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strMusic As String = Application.StartupPath & "\sounds\background\music.mp3"
With Me.AxWindowsMediaPlayer1
.URL = strMusic
.Ctlcontrols.play()
End With

'Dim strwave As String = Application.Startu…
[/Quote]
可行

[herol]

把连接数据库的连接字符串写在一个文本文件里，程序从文本文件里读出字符串连接，需要修改连接的时候只要修改文本文件内容就行了

[新病毒]

帮帮忙

If CusNum.SelectedIndex > -1 Then
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\CRM2008.mdb"
Dim myConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(strConn)
Dim myComm As OleDb.OleDbCommand = New OleDb.OleDbCommand
myComm.Connection = myConn
myComm.CommandText = "select * from cusmanager where cusid = " & CusNum.SelectedItem
Dim myReader As OleDb.OleDbDataReader
myConn.Open()
myReader = myComm.ExecuteReader()///提示标准表达式数据类型不匹配
While myReader.Read
CusName.Text. = myReader.GetString(1)
CusAddress.Text = myReader.GetString(2)
CusPost.Text = myReader.GetString(3)
CusPhone.Text = myReader.GetString(4)
CusMail.Text = myReader.GetString(5)
CusMenu.Text = myReader.GetString(6)///这个位置时要得到网页超链接的，其他都是文本类型
CusLXing.Text = myReader.GetString(7)

End While
myConn.Close()

[vlsm]

查看lzmtw 版主的精华帖，数据库类 [精]
http://topic.csdn.net/u/20080401/16/d268cae6-bd12-4d1a-9cad-24ae5491fb31.html

[晓轩]

数据库表字段都是文本类型码？如果不是就要使用相应的get

[新病毒]

现在都改成文本类型了 还是不行 晕

[晓轩]

cusid = " & CusNum.SelectedItem
改成
cusid = '" & CusNum.SelectedItem & "'"