03-06-24, 05:42 PM
(24-05-24, 10:03 PM)غزة العزة كتب : هذه الأمثلة تستخدم مكتبات محددة لكل قاعدة بيانات. تأكد من تثبيت المكتبة المناسبة لقاعدة البيانات التي ترغب في الاتصال بها قبل استخدام هذه الأمثلة.
وهذا كود للاتصال بقواعد بيانات الفاير بيرد وكود اخر لانشاء قاعدة البيانات (للاسف الكود بالفجوال بيسك فقط)
كود :
Imports FirebirdSql.Data.FirebirdClient
Public Class Form1
Dim con As New FbConnection("Server=localhost;User=SYSDBA;Password=masterkey;Database= " & Application.StartupPath & "\NEW_DB.fdb")
'انشاء قاعدة بيانات
Dim dt As New DataTable
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If con.State = ConnectionState.Open Then con.Close()
con.Open()
FbConnection.CreateDatabase("Server=localhost;User=SYSDBA;Password=masterkey;DEFAULT CHARACTER SET NONE;PAGE_SIZE 16384;Database= " & Application.StartupPath & "\NEW_DB.fdb")
con.Close()
End Sub
End Class
