Voce tem as seguites opcoes, dentre outras, para conectar VB x MySQL:
Via ODBC com DSN
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sSqlCmd As String
'Aber o drive de Odbc pela sua descri��o e n�o pelo DSN
cnn.Open "DSN=NOME_DSN;server= IP_DO_SERVIDOR" & _
";uid=USUARIO" & _
";pwd=SENHA" & _
";Port=3306;database=NOMEDATABASE"
sSqlCmd = "Select version()"
Set rs = cnn.Execute(sSqlCmd)
Via ODBC sem DSN
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sSqlCmd As String
'Aber o drive de Odbc pela sua descri��o e n�o pelo DSN
cnn.Open "driver={MySQL ODBC 3.51 DRIVER};server= IP_DO_SERVIDOR" & _
";uid=USUARIO" & _
";pwd=SENHA" & _
";Port=3306;database=NOMEDATABASE"
sSqlCmd = "Select version()"
Set rs = cnn.Execute(sSqlCmd)
Via OLEDB ( Ter o Drive MySqlProv.3.0 instalado na maquina )
sStmt = "Provider=MySqlProv.3.0;Data Source= DATA_BASE" & _
";Location=IP_SERVIDOR" & _
";User ID=USUARIO" & _
";Password=SENHA" & ";PORT=3306;OPTION=;STMT=;"
Set cnn = CreateObject("ADODB.Connection")
cnn.ConnectionString = sStmt
cnn.Open
ou ainda:
Nativo encapsulando a biblioteca nativa do MySql.
Biblioteca que pose ser encontrada na WEB.
OBS: tem dois driver disponiver o 2.50 ( Estavel ) e a 3.51 (
Development ).
Wagner
> > Valeu ! Por todas as pessoas em que comentei realmente o MySql para
sistemas
> > de 2 camadas e caso fosse necess�rio partir para 3 camadas teria que ter
um
> > banco pago, pois o Postgree eu teria que mudar muito os conceitos e
forma de
> > programa��o, eu prefiro usa o drive OleDB do que ODBC como conex�o pois
por
> > ser mais r�pido. As stores no meu caso seria muito bom para agilizar
pois
> > tenho sistemas de grandes processamento.
> > Mais valeu pela dica, pois acho que para os sistemas pequenos vou
utilizar o
> > MySql no momento � a melhor op��o que tenho !
....
Assinantes em 26/08/2002: 2243
Mensagens recebidas desde 07/01/1999: 180638
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
