06-11-17, 03:00 PM
السلام عليكم و رحمة الله وبركاته
جهودكم مشكوره إن شاء الله
أريد لأن ال Conntion String للكي أتصل بقاعدة البيانات SQL SERVER2005 ,r و قدت أنشأة قاعدة البيانات PCI وفيها الجداوال المطلوبه
وقد وضعت ال Conntion String hgjhgd وبعطيني خطأ ..الصورة مرفقة مع ال
أرجو المساعدة جزاكم الله كل خير
===========================================================================================================
Public Function GetConnection()
Dim dbaseConn As ADODB.Connection
On Error Resume Next
Set dbaseConn = New ADODB.Connection
dbaseConn.ConnectionTimeout = 10
gstrServer = "RMAZRAAWI-PC"
gstrDB = "PCI"
Dim connstring As String
connstring = "Provider=MSDASQL;DRIVER=Sql Server;Server=" & gstrServer & ";Database=" & gstrDB & ";UID=" & gstrUser & ";PWD=" & gstrPwd
dbaseConn.Open connstring
Form1.Show vbModal
If Err Then Set con = Nothing
Set GetConnection = dbaseConn
End Function
===========================================================================================================
جهودكم مشكوره إن شاء الله
أريد لأن ال Conntion String للكي أتصل بقاعدة البيانات SQL SERVER2005 ,r و قدت أنشأة قاعدة البيانات PCI وفيها الجداوال المطلوبه
وقد وضعت ال Conntion String hgjhgd وبعطيني خطأ ..الصورة مرفقة مع ال
أرجو المساعدة جزاكم الله كل خير
===========================================================================================================
Public Function GetConnection()
Dim dbaseConn As ADODB.Connection
On Error Resume Next
Set dbaseConn = New ADODB.Connection
dbaseConn.ConnectionTimeout = 10
gstrServer = "RMAZRAAWI-PC"
gstrDB = "PCI"
Dim connstring As String
connstring = "Provider=MSDASQL;DRIVER=Sql Server;Server=" & gstrServer & ";Database=" & gstrDB & ";UID=" & gstrUser & ";PWD=" & gstrPwd
dbaseConn.Open connstring
Form1.Show vbModal
If Err Then Set con = Nothing
Set GetConnection = dbaseConn
End Function
===========================================================================================================
