Dynamic for Visual Basic6 | SQL Server Performance Forums

SQL Server Performance Forum – Threads Archive

Dynamic for Visual Basic6

Hi to everyone. How can i create a dynamic connection to sql server from visual basic 6? I have this code: cPersonalFile = gDrive & gDir & "NwPerson.mdb"
cEmpleadosFile = gDrive & gDir & "DataOper.mdb"
cTemporalFile = "C:SistemasPersonalNwPerson.mdb"
On Error GoTo OpenDataError ‘Base de datos para crear archivos temporales…
Set MainTmpMDB = DBEngine.Workspaces(0).OpenDatabase(cTemporalFile, False, False)
Set dbTmp = OpenDatabase(App.Path & " mpnote.mdb", False, False) ‘EMMG 10-jun-02
Set MainMDB = DBEngine.Workspaces(0).OpenDatabase(cPersonalFile, False, False)
Set PersonalST = MainMDB.OpenRecordset("Personal", dbOpenTable)
Set AmonestacionesST = MainMDB.OpenRecordset("Amonestaciones", dbOpenTable)
Set AusentismosST = MainMDB.OpenRecordset("Ausentismos", dbOpenTable)
Set ClasesST = MainMDB.OpenRecordset("Clases", dbOpenTable)
Set AreasST = MainMDB.OpenRecordset("Areas", dbOpenTable)
Set PuestosST = MainMDB.OpenRecordset("Puestos", dbOpenTable)
Set ActividadesST = MainMDB.OpenRecordset("Actividades", dbOpenTable)
Set TurnosST = MainMDB.OpenRecordset("Turnos", dbOpenTable)
Set TiposDeAusentismoST = MainMDB.OpenRecordset("TiposDeAusentismos", dbOpenTable)
Set EscolaridadesST = MainMDB.OpenRecordset("Escolaridades", dbOpenTable)
Set TiposDeEdoCivilST = MainMDB.OpenRecordset("TiposDeEdoCivil", dbOpenTable)
Set ColoniasST = MainMDB.OpenRecordset("Colonias", dbOpenTable)
Set MovimientosST = MainMDB.OpenRecordset("Movimientos", dbOpenTable)
Set TiempoExtraST = MainMDB.OpenRecordset("TiempoExtra", dbOpenTable)
PersonalST.Index = "PrimaryKey": AmonestacionesST.Index = "PrimaryKey"
AusentismosST.Index = "PrimaryKey": ClasesST.Index = "PrimaryKey"
AreasST.Index = "PrimaryKey": PuestosST.Index = "PrimaryKey"
ActividadesST.Index = "PrimaryKey": TurnosST.Index = "PrimaryKey"
TiposDeAusentismoST.Index = "PrimaryKey": EscolaridadesST.Index = "PrimaryKey"
TiposDeEdoCivilST.Index = "PrimaryKey": ColoniasST.Index = "PrimaryKey"
MovimientosST.Index = "PrimaryKey": TiempoExtraST.Index = "PrimaryKey"
How can i do it with sql server instead of access? is it possible? Love… how is it?
Use ADO objects to access SQL Server. If you have Access, you might also choose DAO objects, which are MUCH simpler to use.