02-09-19, 01:24 AM
(آخر تعديل لهذه المشاركة : 02-09-19, 01:44 AM {2} بواسطة asemshahen5.)
يعرضهم فين مانوع الاداة ضع توضيح على سؤالك .
مانوع قاعدة البيانات هل هي قاعدة بيانات اكسيس ام سيكول سيرفير .
كود عرض جداول قاعدة بيانات سيكول سيرفير في ليست بوكس :
و هذ كود تعبئة جداول الموجودة بقاعدة بيانات اكسيس من نوع 2007 فما فوق :
و هذا لقواعد البيانات اكسيس 1997- 2003 :
مانوع قاعدة البيانات هل هي قاعدة بيانات اكسيس ام سيكول سيرفير .
كود عرض جداول قاعدة بيانات سيكول سيرفير في ليست بوكس :
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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر