Connect to SQL Server
Приветствую!
Ребята, помогите пожалуйсто разобраться, как коннектиться к БД SQL Server и отсылать ей запросы. Мой код вызывает ошибку. Что я делаю не так?
Public query As String
Public conn As ADODB.Connection
Public adCon As ADODB.Connection
Private Sub Form_Load()
Set conn = New ADODB.Connection
query = "dsn=db_name;Database=TechOtdel;Uid=sa;pwd=rhjrec"
conn.Open query
Set adCon = New ADODB.Connection
query = "SELECT * form ABONENTS"
adCon.Open query, conn, adOpenKeyset, adLockOptimistic
adCon.Close
conn.Close
End Sub
Ребята, помогите пожалуйсто разобраться, как коннектиться к БД SQL Server и отсылать ей запросы. Мой код вызывает ошибку. Что я делаю не так?
Public query As String
Public conn As ADODB.Connection
Public adCon As ADODB.Connection
Private Sub Form_Load()
Set conn = New ADODB.Connection
query = "dsn=db_name;Database=TechOtdel;Uid=sa;pwd=rhjrec"
conn.Open query
Set adCon = New ADODB.Connection
query = "SELECT * form ABONENTS"
adCon.Open query, conn, adOpenKeyset, adLockOptimistic
adCon.Close
conn.Close
End Sub
Отвечаю навскидку, не вникая досконально.
Вообще то "SELECT * form ABONENTS" должен возвращать Recodset, а не Connection, как у тебя.
Вообще то "SELECT * form ABONENTS" должен возвращать Recodset, а не Connection, как у тебя.
и вообще, может тогда:
query = "SELECT * FROM ABONENTS"
query = "SELECT * FROM ABONENTS"