Hello,
I'm looking for a way to create a new workgroup file System.mdw with ADO.
To create database I use following:
I will be greatful if there is anybody who can help me.
I'm looking for a way to create a new workgroup file System.mdw with ADO.
To create database I use following:
Code:
#COMPILE EXE #DIM ALL #INCLUDE "WIN32API.INC" #INCLUDE "adodb.inc" ' created with PowerBASIC COM Browser" from ' Microsoft ActiveX Data Objects 2.7 Library FUNCTION PBMAIN () AS LONG DIM oCon AS ADODBConnection DIM vSQL AS VARIANT SET oCon = NEW ADODBConnection IN "ADOX.Catalog" IF OBJRESULT OR ERR THEN MSGBOX "Error in ADODB.Connection" & $CRLF & _ "Object Result = " & STR$(OBJRESULT) & ";" & $CRLF & _ "ERR = " & STR$(ERR) & "." EXIT FUNCTION END IF ' Engine Type=5 for Access 2000 Database LET vSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\PBWin80\MyWork\SQL\my_new_db.mdb;Jet OLEDB:Engine Type=5;" OBJECT CALL oCon.Execute(vSQL) IF OBJRESULT OR ERR THEN MSGBOX "Error by create database" & $CRLF & _ "Object Result = " & STR$(OBJRESULT) & ";" & $CRLF & _ "ERR = " & STR$(ERR) & "." EXIT FUNCTION END IF MSGBOX "OK!" END FUNCTION
Comment