Crie uma evento chamado ConectionMySql com parametro de entrada do tipo String;
1:
Public Sub
ConectionMySql(comando
As String
) 2: 3:
End Sub
Então adicione o código;
* Certifiquese que está referenciado com MySql.Data.MySqlCliente ex;
Imports MySql.Data.MySqlCliente
1:
Public Sub
ConectionMySql(comando
As String
) 2:
Dim
sqlconection
As
MySqlConnection =
New
MySqlConnection
3: sqlconection.ConnectionString = "SEU_BANCO_DE_DADOS"
'Ex; server=localhost;user id=root;password=123456;database=test
4:
Dim
cmd
As New
MySqlCommand 5: cmd = New MySqlCommand 6: sqlconection.Open() 7:
With
cmd 8: .CommandText = comando 9: .CommandType = CommandType.Text 10: .Connection = sqlconection 11: .ExecuteNonQuery() 12:
End With
13: sqlconection.Close() 14:
End Sub
Para chamar como Update;
1: ConectionMySql("UPDATE tabela SET nome='" & Textbox1.text & '" WHERE Id='1';")
Para chamar como Delete;
1: ConectionMySql("DELETE FROM tabela WHERE id='1';")
Para chamar como Insert
1: ConectionMySql("INSERT INTO tabela (Id, nome) VALUES ('1', '" & Textbox1.text & "');")
0 comentários:
Postar um comentário