Imports VFPToolkit.arrays Imports VFPToolkit.common Imports VFPToolkit.dates Imports VFPToolkit.dialogs Imports VFPToolkit.environment Imports VFPToolkit.files Imports VFPToolkit.math Imports VFPToolkit.strings Imports VFPToolkit.vfpData Imports System.Data Imports System.Data.OleDb Imports System.Data.Common Public Class Form1 Inherits System.Windows.Forms.Form Dim goView As DataView Private Sub cmdLoadData_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdLoadData.Click 'declare the connection string and sql statement Dim lcConnectionString As String lcConnectionString = "Provider=vfpoledb.1;Data Source='C:\Program Files\Microsoft _ Visual FoxPro 7\Samples\Data\testdata.dbc';password='';user id=''" Dim lcSQL As String = "select * from customer" Dim oConn As OleDbConnection 'Connect to the Database, execute the query and disconnect 'SqlConnect(), SqlExecute(), SqlDisconnect() oConn = SqlConnect(lcConnectionString) goView = SqlExecute(oConn, lcSQL, "CustomerList") SqlDisConnect(oConn) 'Select the default cursor VFPToolkit.vfpData.Select(goView) Browse() End Sub End ClassYou can use Try-Catch-Finally to track errors.
>>Dim goView As DataView >>goView = SqlExecute(oConn, lcSQL, "CustomerList") >>>>