VB6: Как мне подключиться к серверу SQL без менеджера сервисов, установленного на клиенте?

Question

Я создаю приложение в Visual Basic 6.0, в котором в качестве базы данных используется сервер SQL. Я хочу подключиться к базе данных, не устанавливая диспетчер служб MS SQL на клиенте. Как это может быть сделано? Должен ли я добавить какие-либо файлы DLL или .tbl или .ocx?

Answer 1

Q = "Select contact, company, phone, address, city, state, zip from contacts"

'create db objects
Set conn = New ADODB.Connection       'Database Connection
Set rs = New ADODB.Recordset          'RecordSet
conn.Open "Provider=SQLOLEDB;Password=" & LCase(sSQL_Password) & ";User ID=" & sSQL_USER & ";Data Source=" & sSQL_Server & "; Initial Catalog=" & sSQL_DB & ";connect timeout=10"
conn.CommandTimeout = 20

'open connnection
rs.Open Q, conn, , adCmdText

While Not rs.EOF
    vTotalMail = rs.Fields("TheNumber").Value
    gridResults.AddItem ("Contact" & vbTab & "Companyt" & vbTab & "phone" & vbTab & "address" & vbTab & "City" & vbTab & "State" & vbTab & "Zip" & vbTab)
    rs2.MoveNext
Wend

rs.Close

убедитесь, что имя вашего SQL-сервера правильное (а не МОМЕНТ, такой как имя_сервера \ экземпляр или что-то в этом роде).

Answer 2

Зависит от того, как вы хотите подключиться к серверу. Если вы посмотрите на панель управления на клиентском компьютере, есть ли там апплет ODBC? (Может также находиться в папке «Инструменты администратора», а не прямо в панели управления).

Если это так, попробуйте создать ссылку на БД SQL Server, и если это сработает, вам может больше ничего не понадобиться. Если это не так, вам может потребоваться установить MDAC , чтобы получить правильные драйверы.

После этого просто написать свой обычный код на VB6 (возможно, с использованием ADO).