 |
| |
ปัญหาVB2008กับฐานข้อมูลรบกวนด้วยครับ ผมมือใหม่มากๆอะครับช่วยด้วยนะครับ |
| |
 |
|
|
 |
 |
|
ผมมือใหม่สุดๆไม่รู้เกี่ยวกับอะไรเลยมีแต่หนังสือเกี่ยวกับโปรแกรมเขียนข้อมูลติดต่อกับฐานข้อมูลเท่านั้นเองครับ รบกวนช่วยผมด้วยครับ
Code (VB.NET)
Imports System.Data
Imports System.Data.OleDb
Public Class Form7
Dim Conn As New OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As New DataSet
Dim dvm As DataViewManager
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strConn As String
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\TC01.accdb;Persist Security Info=False"
With Conn
If .State = ConnectionState.Open Then
.Close()
.ConnectionString = strConn
.Open()
End If
End With
Dim sqlcustomers As String
sqlcustomers = " select * from customers "
da = New OleDbDataAdapter(sqlcustomers, Conn)
da.Fill(ds, "customer")
dvm = ds.DefaultViewManager
cbo.DataSource = dvm
cbo.DisplayMember = "customers.ID"
TextBox1.DataBindings.Add("text", dvm, "customers.name")
TextBox2.DataBindings.Add("text", dvm, "customers.Address")
TextBox3.DataBindings.Add("text", dvm, "customers.tel")
Form2.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub
End Class
พอรันแล้วตรงส่วนบรรทัดที่24 da.Fill(ds, "customer")
มันก็ขึ้นเหลืองแล้วแจ้งว่า The ConnectionString property has not been initialized.
ผมไม่เข้าใจว่ามันคืออะไรแล้วทำไมไม่ผ่านอ่าครับ
ส่วนตัวโปรแกรมที่ทำคือแสดงฐานข้อมูลลูกค้า ในรูปแบบ Simple Binding(ตามหัวข้อในหนังสืออะครับ)
Tag : .NET, Ms Access, VS 2008 (.NET 3.x)
|
ประวัติการแก้ไข
2011-01-06 23:09:42
2011-01-06 23:11:09
|
 |
 |
 |
 |
| Date :
2011-01-06 23:08:16 |
By :
mad74589 |
View :
1464 |
Reply :
3 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ตามนี้เลยคับ ลองเอาไปปรับเปลี่ยนดูคับ -*-
Code (VB.NET)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadFiledata()
End Sub
Private Sub LoadFiledata()
Dim strConn As String
Dim Conn As New OleDbConnection
Dim da As OleDbDataAdapter
Dim ds, dataset As New DataSet()
' Code ติดต่อกับฐานข้อมูล Accress 2007
'strConn = "Provider=Microsoft.ACE.OLEDB.12.0; " & _
' "Data Source=..\\Computer_CheckcoseEmployees.accdb;Persist Security Info=False"
' Code ติดต่อกับฐานข้อมูล Accress 2003
'Dim conStr As String = _
strConn = "provider=Microsoft.Jet.oleDb.4.0;" & _
"Data Source=..\\Computer_CheckcoseEmployees.mdb"
Dim Conn As New OleDbConnection(strConn)
Conn.Open()
Dim Sql As String = "select * from CompterTitle"
Dim Cmd As New OleDbCommand(Sql, Conn)
Dim Adapter As New OleDbDataAdapter(Cmd)
Dim Data As New DataSet()
Adapter.Fill(Data, "cat")
Dim Data1 As New DataSet()
DataGridView1.DataSource = Data.Tables("cat")
Conn.Close()
Dim sqlCategories As String
sqlCategories = "SELECT * from CompterTitle"
da = New OleDbDataAdapter(sqlCategories, Conn)
da.Fill(ds, "CompterTitle")
Return
End Sub
|
| |
|
|
| |
| Date :
2011-01-07 08:25:48 |
By :
angelrings0 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ให้ดูบรรทัดที่ 13 - 20 ครับ จะอธิบายเป็นบรรทัดไปนะครับ
13 กำหนด Connection String
15 ทำการตรวจสอบ สถานะของ Conn (.State) ว่ามีเปิดอยู่หรือไม่ ถ้าเปิดให้ทำตามดังนี้
16 (ภายใต้เงื่อนไข) ปิด Conn
17 (ภายใต้เงื่อนไข) กำำหนด Connection String ให้กับ Conn
18 (ภายใต้เงือนไข) เปิด Conn
สังเกตุตัวแดงครับ ปัญหาของ จขกท. อยู่ตรงนี้แหละครับ เพราะพอเรา Run โปรแกรม ตาม Code ยังไงซะ มันจะไม่มีทางเข้าเงือนไข IF ในบรรทัดที่ 15 เพราะค่า ตั้งต้นของ OleDbConnection หรืออื่นๆ จะเป็น Close ดังนี้ Conn จะไม่มีทางได้รับ ConnectionString ทราบปัญหาแล้ว จขกท. น่าจะแก้ได้นะครับ
|
| |
|
|
| |
| Date :
2011-01-07 09:11:48 |
By :
kaimuk |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากครับ พอดีเป็นโปรเจ็คจบแล้ว ผมรับหน้างานมาแบบ ไม่มีความรู้เลยอะ เลยต้องมาสอบถามผู้รู้เนี้ยแหละครับ พอดี
เน็ตที่บ้านดันโดนตัด แม่ลืมจ่ายเงินอีก- - เศร้าเลย ขอบคุณมากนะครับถ้ามีปัญหาอะไรอีกจะรบกวนอีกนะครับ
|
| |
|
|
| |
| Date :
2011-01-08 18:50:28 |
By :
mad74589 |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
