Please any body can help me how to connect vb6 to sql server database i'm very appreciated if someone can help and millions of thanks

none

__________________
none

hi

U Can use Microsoft ActiveX Data Object(ADO).

Open a Standard EXE Project in VB
Goto Project Menu --> select References
Select the Reference "MICROSOFT ACTIVEX DATA OBJECT x.x" where x.x can be [ 2.0,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8 (all are different versions)]

Select any one version and click ok

Then Try the following code

Sub ConnectToSQL()
Dim ObjSQLCon As ADODB.Connection
Set ObjSQLCon = New ADODB.Connection

ObjSQLCon.Open "Provider=SQLOLEDB;User Id=username;Password=passwd;Data Source=sqlservermachinename;Initial Catalog=dbname"

If ObjSQLCon.State = adStateOpen Then
    Msgbox "SQLConnection Opened",vbInformation
Else
    MsgBox "SQLConnection Failed"
End If

End Sub

Here in the Open() method of ADODB.Connection Object, these values should be passed correctly else it will not connect.

Provider=SQLOLEDB; 'OLE DB Provider for SQL Server (do not change this value)

Data Source=sqlservermachinename; 'Should be the name of the server in which SQL Server is running

Initial Catalog=dbname; 'Name of the SQLServer Database that u wish to u connect

User Id=username; 'Should be a valid SQL Server username

Password=passwd; 'Should be a valid SQL Server password


Regards,
Raghu

Here's a tutorial that may be helpful.

VB Database Programming: http://www.vbexplorer.com/VBExplorer...er_ADO_DAO.asp

- A.Kahtava

Thank you very much for your reply please if you can,can you show me in DAO COMMAND cause i' using DAO i'M familiar with DAO command

none

DAO example - JET Connection

Dim ws as Workspace
Dim db as Database

Set ws=DBEngine.Workspaces(0)
set db=ws.OpenDatabase({databasepath and name})

DAO example - ODBC Connection

Dim ws as Workspace
dim db as database
dim strConnection as string

set ws=DBEngine.Workspaces(0)
let strConnection= "ODBC;DSN=" & DatabaseName & ";UID=" & UserName & ";PWD=" & UserPassword
set db=ws.OpenDatabase("", False, False, strConnection)

-------
The link I posted in my last post has examples of both ADO and DAO.
Above code taken from the link in my last post.

- A.Kahtava

Thank you very much i'll try

none

Please can you specify for me cause i'm new Programmers for VB
ODBC = ?
WHAT IS THE VALUE OF ODBC ?
AND MY DATABASE set db=ws.OpenDatabase(" ? ", False, False, strConnection)
set ws=DBEngine.Workspaces(0)
let strConnection= "ODBC;DSN=" & DatabaseName & ";UID=" & UserName & ";PWD=" & UserPassword
set db=ws.OpenDatabase("", False, False, strConnection)

none

What is ODBC?
"Open Database Connectivity (ODBC) provides a standard software API method for using database management systems (DBMS)."
Read more at: http://en.wikipedia.org/wiki/ODBC

set db=ws.OpenDatabase("c:\Directory_Name\DatabaseName.mdb", False, False, strConnection)

You can either specify the database file in the OpenDatabase() method or the stConnection.

- A.Kahtava

THANK YOU VERY MUCH

none

hello my friend thank you for your reply i just want to ask you please can you show me your code if you can like if i delete my files in database using command delete i can retrieved my files or restore to my database my files thank you?.

none

none