Database Search

TechHome

• CLR Scripts to Create Linked Servers
• Create an XML Schema File from a SQL Server Database
• Get Database Results into a WIL Array and Display
• Insert Access Data to Excel
• Insert Excel Data Into Access
• OleDb GetSchema
• OleDb

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

OleDb

 Keywords: System.Data System.Data.OleDb.OleDbConnection System.Data.OleDb.OleDbCommand  System.Data.OleDb.OleDbDataAdapter System.Data.DataTable Access Accdb Microsoft.ACE.OLEDB.12.0  Reportview Rows Columns

cACCDB="C:\TEMP\Data\Access\Sample.accdb"
tablename = 'Neta'

If ! FileExist(cACCDB) Then Terminate(@TRUE,"Cannot Continue",cACCDB:" is missing")

cConn='Provider=Microsoft.ACE.OLEDB.12.0;data source=':cACCDB
cSQL="SELECT * FROM ":tablename

ObjectClrOption("use","System.Data, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
oConn = ObjectClrNew( 'System.Data.OleDb.OleDbConnection',cConn)
oConn.Open()
oCmd = ObjectClrNew( 'System.Data.OleDb.OleDbCommand')
oCmd.Connection = oConn
oCmd.CommandText = cSQL

oAdapter = ObjectClrNew( 'System.Data.OleDb.OleDbDataAdapter')
oTable = ObjectClrNew( 'System.Data.DataTable')
oAdapter.SelectCommand = oCmd
rowcount = oAdapter.Fill(oTable)
colcount = oTable.Columns.Count

;Read Data into a WIL Array
arrData = ArrDimension(rowcount,colcount)
For _row = 0 to rowcount-1
   objRow = oTable.Rows.Item(_row)
   For _col = 0 to colcount-1 
     objColumn = oTable.Columns.Item(_col)
     arrData[_row,_col] = objRow.Item(objColumn)  
   Next 
Next 
oConn.Close()


; Display in WIL Dialogs Reportview Control
MyDialogFormat=`WWWDLGED,6.2`

MyDialogCaption=`Database Query Results`
MyDialogX=002
MyDialogY=059
MyDialogWidth=766
MyDialogHeight=353
MyDialogNumControls=003
MyDialogProcedure=`DEFAULT`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0

MyDialog001=`231,333,036,012,PUSHBUTTON,"PushButton_OK",DEFAULT,"OK",1,10,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`499,333,036,012,PUSHBUTTON,"PushButton_Cancel",DEFAULT,"Cancel",0,20,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`001,001,758,322,REPORTVIEW,"ReportView_1",arrData,DEFAULT,DEFAULT,30,2097152,DEFAULT,DEFAULT,"192|192|192"`

ButtonPushed=Dialog("MyDialog")

Exit

Article ID:   W17815

Filename:   OleDb.txt

File Created: 2013:04:29:14:54:04

Last Updated: 2013:04:29:14:54:04