12-10-13, 11:08 AM
السلام عليكم ورحمة الله وبركاته
تحية لكل اعضاء ومشرفى الموقع الكرام
لدى برنامج يعمل على فيجوال بيسك 6 وقاعدة بيانات اكسس 2003
وهذا كود الاتصال بقاعدة البيانات فى مديول منفصل
Public DB As New ADODB.Connection
Public RS As New ADODB.Recordset
Public Rss As New ADODB.Recordset
Public Rs1 As New ADODB.Recordset
Public Rs2 As New ADODB.Recordset
Public Rs3 As New ADODB.Recordset
Public Rs4 As New ADODB.Recordset
Public Rs5 As New ADODB.Recordset
Public myrecset As New ADODB.Recordset
Public myrecset1 As New ADODB.Recordset
Public Modify_Type As String
Public SQLs As String
Public SQLs1 As String
Public mysql As String
Public mysql1 As String
Public UserNames As String
Public UserPassword As String
Public Function OpenDB(DBFilename As String) As Boolean
' On Error GoTo ex
If DB.State = adStateOpen Then DB.Close
DB.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDBatabase Password=bancianaqhdudhlhkst;" & _
"Data Source=" & DBFilename & ";"
OpenDB = True
Exit Function
ex: '------------------------
OpenDB = False
End Function
Public Sub bance_mydb()
OpenDB (App.Path & "\bance_st" & sys_start.StatusBar1.Panels(10).Text & ".ban")
End Sub
************************************************************
الان قمت بتسطيب برنامج SQL SERVER 2008 R2
SERVER NAME: ABO_BANCIANA
LOFIN: mahmoud
Pasword:123
ويوجد قاعدة بيانات اسمها STORE
ارجوا من السادة الافاضل المساعدة فى كود الاتصال بقاعدة البيانات السابقة
ولكم كل الشكر والاحترام
تحية لكل اعضاء ومشرفى الموقع الكرام
لدى برنامج يعمل على فيجوال بيسك 6 وقاعدة بيانات اكسس 2003
وهذا كود الاتصال بقاعدة البيانات فى مديول منفصل
Public DB As New ADODB.Connection
Public RS As New ADODB.Recordset
Public Rss As New ADODB.Recordset
Public Rs1 As New ADODB.Recordset
Public Rs2 As New ADODB.Recordset
Public Rs3 As New ADODB.Recordset
Public Rs4 As New ADODB.Recordset
Public Rs5 As New ADODB.Recordset
Public myrecset As New ADODB.Recordset
Public myrecset1 As New ADODB.Recordset
Public Modify_Type As String
Public SQLs As String
Public SQLs1 As String
Public mysql As String
Public mysql1 As String
Public UserNames As String
Public UserPassword As String
Public Function OpenDB(DBFilename As String) As Boolean
' On Error GoTo ex
If DB.State = adStateOpen Then DB.Close
DB.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDBatabase Password=bancianaqhdudhlhkst;" & _
"Data Source=" & DBFilename & ";"
OpenDB = True
Exit Function
ex: '------------------------
OpenDB = False
End Function
Public Sub bance_mydb()
OpenDB (App.Path & "\bance_st" & sys_start.StatusBar1.Panels(10).Text & ".ban")
End Sub
************************************************************
الان قمت بتسطيب برنامج SQL SERVER 2008 R2
SERVER NAME: ABO_BANCIANA
LOFIN: mahmoud
Pasword:123
ويوجد قاعدة بيانات اسمها STORE
ارجوا من السادة الافاضل المساعدة فى كود الاتصال بقاعدة البيانات السابقة
ولكم كل الشكر والاحترام