+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في الحفظ في الاكسس (/showthread.php?tid=31085)
RE: مشكلة في الحفظ في الاكسس - asemshahen5 - 02-09-19
يعرضهم فين مانوع الاداة ضع توضيح على سؤالك .
مانوع قاعدة البيانات هل هي قاعدة بيانات اكسيس ام سيكول سيرفير .
كود عرض جداول قاعدة بيانات سيكول سيرفير في ليست بوكس :
PHP كود :
Dim cn As New SqlClient.SqlConnection("Server=" & ComboServer & ";database=" & ComboDatabase & ";integrated security=False;User ID=" & TxtUserId & ";Password=" & TxtPassword)
Dim da As New SqlClient.SqlDataAdapter("Select Name AS 'Table_Name' From dbo.sysObjects Where xtype='u' order by Name", cn)
Dim dt As New DataTable
da.Fill(dt)
ListTable.items.Clear()
For Each row As DataRow In dt.Rows
ListTable.Items.Add(row(0).ToString)
Next
و هذ كود تعبئة جداول الموجودة بقاعدة بيانات اكسيس من نوع 2007 فما فوق :
PHP كود :
Public Sub GetDatabaseTablesAccdb(TableNames As DataGridView)
Dim OpenAccess As New OpenFileDialog With {.Filter = "Microsost Access 2007-2016|*.accdb|All File|*.*", .ShowHelp = True}
If OpenAccess.ShowDialog = DialogResult.OK Then
FileName = OpenAccess.FileName
Label11.Text = OpenAccess.SafeFileName
Dim DatabaseConnectionString As String =
<Connection>
Provider=Microsoft.ACE.OLEDB.12.0;
data source=<%= FileName %>;
User Id=admin;
Jet OLEDB:Database Password=<%= TxtPasswordAcc.Text %>;
</Connection>.Value
Dim cn As New OleDbConnection(DatabaseConnectionString)
DatabaseDir.Text = FileName
Try
If cn.State = ConnectionState.Closed Then cn.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim dt As DataTable = New DataTable With {.TableName = "test"}
dt = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
cn.Close()
TableNames.Rows.Clear()
For x As Integer = 0 To dt.Rows.Count - 1
TableNames.Rows.Add(dt.Rows(x)(2))
Next
End If
End Sub
و هذا لقواعد البيانات اكسيس 1997- 2003 :
PHP كود :
Public Sub GetDatabaseTablesAccdb(TableNames As DataGridView)
Dim OpenAccess As New OpenFileDialog With {.Filter = "Microsost Access 2007-2016|*.accdb|All File|*.*", .ShowHelp = True}
If OpenAccess.ShowDialog = DialogResult.OK Then
FileName = OpenAccess.FileName
Label11.Text = OpenAccess.SafeFileName
Dim DatabaseConnectionString As String =
<Connection>
Provider=Microsoft.ACE.OLEDB.12.0;
data source=<%= FileName %>;
User Id=admin;
Jet OLEDB:Database Password=<%= TxtPasswordAcc.Text %>;
</Connection>.Value
Dim cn As New OleDbConnection(DatabaseConnectionString)
DatabaseDir.Text = FileName
Try
If cn.State = ConnectionState.Closed Then cn.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim dt As DataTable = New DataTable With {.TableName = "test"}
dt = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
cn.Close()
TableNames.Rows.Clear()
For x As Integer = 0 To dt.Rows.Count - 1
TableNames.Rows.Add(dt.Rows(x)(2))
Next
End If
End Sub
RE: مشكلة في الحفظ في الاكسس - ابراهيم ايبو - 02-09-19
السلام عليكم اخي الكريم
(جربت اخلي الداتا جريد فيو = nothing منفعتش بحاجة)
قبل ان تملا الداتا غرايد بجدول جديد قم بالغاء ارتباطها بالداتاسورس القديمة واجعلها بدون داتا سورس لتستقبل الجديدة
اكتب هذا الكود بدل الجملة السابقة
كود :
DataGridView1.DataSource = Nothing