DUVIDAS USO MYSQL E VB

ERLANMG 02/01/2010 15:14:51
#330870
Caros amigos,

Estou usando VB com mysql da seginte forma. Está funcionando perefeitamente. Gostaria da opinião de voces se o codigo está correto.

If acao = [Ô]incluir[Ô] Then
call Abrirconexao
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open [Ô]Select * From clientes where cnpj = [ô][Ô] & text11.Text & [Ô][ô][Ô], conn
If rs.RecordCount > 0 Then
MsgBox ([Ô]CNPJ já cadastrado. Favor verificar.[Ô]), vbInformation, [Ô]Mensagem do Sistema[Ô]
rs.Close
text11.SetFocus
Exit Sub
End If
rs.Close

Call Abrirconexao
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open [Ô]Select * From clientes where codigo = [ô][Ô] & Text1.Text & [Ô][ô][Ô], conn
If rs.RecordCount > 0 Then
MsgBox ([Ô]Código já cadastrado. Favor verificar.[Ô]), vbInformation, [Ô]Mensagem do Sistema[Ô]
rs.Close
Exit Sub
End If
rs.Close

Call Abrirconexao
Dim sql As String
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open [Ô]select * from clientes[Ô], conn, adOpenStatic, adLockOptimistic, adCmdText

rs.AddNew
Call gravar
rs.Update
rs.Close
Call zerar
command6_Click
endif

Desde já agradeço.
RFTD 02/01/2010 16:03:11
#330876 Resposta escolhida
vara vc não precisa toda hora fazer a chamada [Ô]Call Abrirconexao[Ô], vc abrindo 1 vez a conexão ta bem vc so precisaria chamar novamente se vc fechar a conexão.
Tópico encerrado , respostas não são mais permitidas
Voltar