الربط بالكود مع أوراكل

الاوراكل

db.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True"

تفضل اخي هذه طريقتين للاتصال بالاوراكل

Dim conn As ADODB.Connection 

Private Sub Form_Load() 

Set conn = New ADODB.Connection 

With conn 
.Provider = "MSDAORA.1" 
.ConnectionString = "Data source=badev02;user id=gilles;password=mypwd" 
.CursorLocation = adUseClient 
.Open 
End With 

او

With conn 
.Provider = "MSDAORA.1" 
.Properties("Data Source") = "badev02" Oracle instance Name 
.Properties("User ID") = "gilles" 
.Properties("Password") = "mypwd" 
.CursorLocation = adUseClient 
.Open 
End With

Dim sSQL As String 

sSQL = "Insert into Test values (1,'Sample Test')" 

conn.Execute sSQL, , adExecuteNoRecords 

conn.Close 
Set conn = nothing 

End Sub

السلام عليكم ورحمة الله وبركاته

ومن هنا الاتصال بالــ SQL SERVER :

http://www.arabteam2000.com/BookLib/show.asp?Id=1

أو

/index.php?showtopic=49735

أو :) كفاية طمع و لا أيه