lsxlc und MS-SQL

Dim src As New LCConnection ("oledb") 

'set the connection parameters...	
	src.Provider = "SQLOLEDB"  'standard for SQL server
	src.Init_DataSource = "HOSTNAME"
	src.Database = "DATABASE"
	src.Userid = "USER"
	src.Password = "PASSWORD"
	src.Connect

	src.connect

	If (src.IsConnected) Then
		Messagebox "Works"

		Dim SQLCreateTableQuery As String
		SQLCreateTableQuery = "CREATE TABLE xxxx (createdate smalldatetime NOT NULL)"


		'src.Execute(SQLCreateTableQuery)


	Else
		Messagebox "Works not"
	End If

	src.disconnect

Dim src As New LCConnection ("oledb") 
Dim fldLst As New LCFieldList    


'set the connection parameters...    
    src.Provider = "SQLOLEDB"  'standard for SQL server
    src.Init_DataSource = "HOSTNAME"
    src.Database = "DATABASE"
    src.Userid = "USER"
    src.Password = "PASSWORD"
    src.Connect

    src.connect

    If (src.IsConnected) Then
        Messagebox "Works"

        Dim SQLCreateTableQuery As String
        SQLCreateTableQuery = "CREATE TABLE xxxx (createdate smalldatetime NOT NULL)"


	If (src.Execute(SQLCreateTableQuery,fldLst) = 0) Then
	End If


    Else
        Messagebox "Works not"
    End If

    src.disconnect