INICIANTE VB.NET
Caros Colegas,
Estou iniciando o vb.net, tenho alguns sistemas rodando em vb 6, estou precisando da ajuda de voces segue abaixo algumas dúvidas:
1 - Em vb 6 uso mdi form em vb net preciso usar?
2 - Meu Banco de dados é MYSQL estou usando como segue abaixo para conectar ao bd:
Dentro do modulo (vb.net) coloquei assim:
Module Conexao
Public conn As New MySqlConnection
Public myCommand As New MySqlCommand
Public myAdapter As New MySqlDataAdapter
Public myData As New DataTable
Public SQL As String
#Region [Ô]CONECTAR BANCO DE DADOS[Ô]
Public Sub abrirconexao()
conn = New MySqlConnection
conn.ConnectionString = [Ô]server=IPBD;user id=USUARIO;password=SENHA;database=BD[Ô]
End Sub
#End Region
End Module
Como faço para verificar se o cliente ou o produto está cadastro, ou seja como ficaria esta rotina feita em vb 6 no vb net:
Dentro do modulo vb 6
Public conn As ADODB.Connection [ô] referencia nessaria ADOBD
Public rs As ADODB.Recordset
Public Sub Abrirconexao()
Set conn = New ADODB.Connection
conn.ConnectionString = [Ô]Driver=MySQL ODBC 3.51 Driver; DATABASE=xxxxxxxx; Server=[Ô] & ipconexao & _
[Ô];Port=3306; UID=xxxxxxxx; PASSWORD=xxxxxxxxxxx[Ô]
endsub
E NO FORM
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
Desde já agradeço a atenção de todos,
Abraços
Estou iniciando o vb.net, tenho alguns sistemas rodando em vb 6, estou precisando da ajuda de voces segue abaixo algumas dúvidas:
1 - Em vb 6 uso mdi form em vb net preciso usar?
2 - Meu Banco de dados é MYSQL estou usando como segue abaixo para conectar ao bd:
Dentro do modulo (vb.net) coloquei assim:
Module Conexao
Public conn As New MySqlConnection
Public myCommand As New MySqlCommand
Public myAdapter As New MySqlDataAdapter
Public myData As New DataTable
Public SQL As String
#Region [Ô]CONECTAR BANCO DE DADOS[Ô]
Public Sub abrirconexao()
conn = New MySqlConnection
conn.ConnectionString = [Ô]server=IPBD;user id=USUARIO;password=SENHA;database=BD[Ô]
End Sub
#End Region
End Module
Como faço para verificar se o cliente ou o produto está cadastro, ou seja como ficaria esta rotina feita em vb 6 no vb net:
Dentro do modulo vb 6
Public conn As ADODB.Connection [ô] referencia nessaria ADOBD
Public rs As ADODB.Recordset
Public Sub Abrirconexao()
Set conn = New ADODB.Connection
conn.ConnectionString = [Ô]Driver=MySQL ODBC 3.51 Driver; DATABASE=xxxxxxxx; Server=[Ô] & ipconexao & _
[Ô];Port=3306; UID=xxxxxxxx; PASSWORD=xxxxxxxxxxx[Ô]
endsub
E NO FORM
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
Desde já agradeço a atenção de todos,
Abraços
Citação:1 - Em vb 6 uso mdi form em vb net preciso usar?
2 - Meu Banco de dados é MYSQL estou usando como segue abaixo para conectar ao bd:
Respostas
1) Sim pode.
2) Parece esta certo.
Pesquisar no Banco:
Using Comando As New SqlClient.SqlCommand
With Comando
.Connection = Conn
.CommandType = CommandType.Text
.CommandText =[Ô]Select * From clientes where cnpj = [ô] [Ô] & text11.Text & [Ô] [ô][Ô]
rs = .ExecuteReader
End With
End Using
[ô]Se houver registro o [Ô]HasRows[Ô] retorna TRUE, se não houver registro retorna FALSE.
If rs.HasRows = True Then
MsgBox ([Ô]CNPJ já cadastrado. Favor verificar.[Ô], MsgBoxStyle.ApplicationModal +MsgBoxStyle.Information, [Ô]Mensagem do Sistema[Ô])
rs.Close
text11.SetFocus
Exit Sub
end if
Veldrame, bom dia!
Desculpe o incomodo, mas poderia me passar em exemplo completo de conexão ao bd e da rotina acima citada.
Mais uma vez muito obrigado pela ajuda.
Abraços,
Desculpe o incomodo, mas poderia me passar em exemplo completo de conexão ao bd e da rotina acima citada.
Mais uma vez muito obrigado pela ajuda.
Abraços,
conexão MySQL com VB.NET
http://www.macoratti.net/net_msql.htm
http://www.macoratti.net/net_msql.htm
Tópico encerrado , respostas não são mais permitidas