Visual Basic连接 mysql_为什么Visual Basic.net中无法与数据库连接？

我是用VisualStudio2008做一个VB应用系统。已经连接了数据库，但是在实际应用时，发现DataGridView(已绑定数据库中一个表)无只能够读出一开始数据库源文件的内容，后面将数据库源文...

我是用Visual Studio2008做一个VB应用系统。已经连接了数据库，但是在实际应用时，发现DataGridView(已绑定数据库中一个表)无只能够读出一开始数据库源文件的内容，后面将数据库源文件修改后，读出的还系修改前的数据。另外，我也不能更新到数据库！就是系统运行了，但是新加入的行数据只是能够在即时的DataGridView中列出，而数据库源文件刚没有更新到！！

以下是部分代码：

Imports System.Data

Imports System.Data.SqlClient

Public Class CheckIn

Private Sub CheckIn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

Dim s As String = "SELECT 房号,类型,房价 FROM RoomList WHERE 状态='空闲' AND 类型 <> '豪华双人房' "

RoomListTableAdapter.Adapter.SelectCommand.CommandText = s

RoomListTableAdapter.Fill(Me.MiniRoomDataSet.RoomList)

'RoomListTableAdapter.FillBySingle(Me.MiniRoomDataSet.RoomList,"空闲") 'FillBy是带条件的查询函数，此语句是将状态为“空闲”的房间显示出来

BtNext.Enabled = False

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

Private Sub BtSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSave.Click

Try

If TxtRoomNumber.Text = "" Then

MsgBox("请选择房间")

Exit Sub

End If

MsgBox("确定资料正确，并入住MiniRoom？", MsgBoxStyle.YesNo) '再次确认资料是否填写正确

'以下代码将控件数据插入到数据库中去

Dim ds As DataSet = MiniRoomDataSet

Dim newrow As DataRow = ds.Tables("SingleRoomClientList").NewRow

newrow("客户编号") = TxtNum.Text

newrow("姓名") = TxtName.Text

newrow("房号") = TxtRoomNumber.Text

newrow("类型") = CmbType.Text

newrow("身份证号码") = TxtCertificateNumber.Text

newrow("押金") = TxtDeposit.Text

newrow("入住日期") = TxtDate.Text

ds.Tables("SingleRoomClientList").Rows.Add(newrow)

'Me.BindingContext(ds, "SingleRoomClientList").EndCurrentEdit()

If ds.HasChanges(DataRowState.Added) Then '更新成功

SingleRoomClientListTableAdapter.Update(MiniRoomDataSet)

MsgBox("Success")

RoomListTableAdapter.Update("营业中", TxtRoomNumber.Text) '令选择的房间状态更新为“营业中”

SingleRoomClientListTableAdapter.Fill(Me.MiniRoomDataSet.SingleRoomClientList)

ClientListDataGridView.Visible = True

BtNext.Enabled = True

DataGridView1.Visible = False

BtSave.Enabled = False

Else

MsgBox("登记失败！")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

麻烦各位高手帮帮小弟！时间赶，要交作业了！！

拜托了！

machaliha谢谢你的回答。但是我还是想让你帮我再详细告诉我如何将 tableadapter 和 数据库的后台联系起来。具体一点，详细到点哪一个控件，该控件的使用方法。因为我是初学vb的，很多操作和实现都不懂，谢谢了。

展开