Visual Studio 2008 (Visual Basic)

[lsantos]

'eu fiz esta class e uso em tds os meus progs: espero k te ajude:

Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class BaseDados
Public Function OpenSQL(ByVal SQL As String, ByVal IsAcess As Boolean) As DataSet
strConnectionString = "Application Name=;Password=tua_pass;User ID=teu_user;Workstation ID=;Database=tua_bd;Server=teu_servidor"
Coneccao = New SqlConnection(strConnectionString)
sqlCMD = New SqlCommand(SQL, Coneccao)
da = New SqlDataAdapter(sqlCMD)
da.Fill(ds, "OpenSQL")
OpenSQL = ds
End Function
End Class



ex:

mSQL= "select * from blalala"

'pa lers a string de sql usas:

Liga1 = Ligacao.OpenSQL(mSQL, False)


PS: n te eskecas das declarações:

Public strConnectionString As String
Public da As SqlDataAdapter
Public daAccess As OleDbDataAdapter
Public sqlCMD As SqlCommand
Public sqlCMDAccess As OleDbCommand
Public Coneccao As SqlConnection
Public ConeccaoAcess As OleDbConnection
Public ds As New DataSet
Public Result As String
Public mSQL As String