Jump to content

Ajuda Banco de Dados vb


FelipeMachado

Recommended Posts

FelipeMachado

Galera estou com um probleminha estou tentando extrair um dado do meu Banco para um Textbox

Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Public Class form1
Dim SQL As String
Dim cmd As MySqlCommand
Dim conn As New MySqlConnection
Dim reader As MySqlDataReader
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 'função que conecta com banco de dados
 connection()
 Try
	 'aqui ele extrai o maior valor do código de barras do banco de dados.
	 SQL = "select max(codigobarra) from produtos where tipo like 'Pulseira%' "
'apartir daqui eu me perdi não sei o que fazer e tambem não acho muita coisa sobre o assunto
	 reader = cmd.ExecuteReader()
	 reader.Read()
	 TBcb.Text = reader.GetInt32(0).ToString()
 Catch ex As Exception
	 MsgBox(ex.Message)
 Finally
	 conn.Close()
 End Try
End Sub

se alguem poder me ajudar eu agradeceria muito

Link to post
Share on other sites
ribeiro55

Olá Felipe.

Se não achas muito sobre o assunto, é porque estás a procurar de forma errada :)

O que precisas, para este caso particular, é um simples ExecuteScalar, dado que o que queres é consultar um único valor.

O exemplo mais simples para este caso seria:

	Dim Sql = "SELECT MAX(codigobarra) FROM produtos WHERE tipo LIKE 'Pulseira%'"
	Dim Ligacao As New SqlConnection("Server=HOST;Database=DB;User Id=USER;Password=PASSWORD")
	Dim Comando As New SqlCommand(Sql, Ligacao)
	Ligacao.Open()
	TBcb.Text = Comando.ExecuteScalar().ToString()
	Ligacao.Close()

EDIT: Reparei agora que estás a usar o conector de MySql.

O meu exemplo mantém-se, só precisas de prefixar o "My".

A connection string para MySql também é diferente, tenho impressão

  • Vote 1

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to post
Share on other sites
FelipeMachado

Olá Felipe.

Se não achas muito sobre o assunto, é porque estás a procurar de forma errada :)

O que precisas, para este caso particular, é um simples ExecuteScalar, dado que o que queres é consultar um único valor.

O exemplo mais simples para este caso seria:

	Dim Sql = "SELECT MAX(codigobarra) FROM produtos WHERE tipo LIKE 'Pulseira%'"
	Dim Ligacao As New SqlConnection("Server=HOST;Database=DB;User Id=USER;Password=PASSWORD")
	Dim Comando As New SqlCommand(Sql, Ligacao)
	Ligacao.Open()
	TBcb.Text = Comando.ExecuteScalar().ToString()
	Ligacao.Close()

EDIT: Reparei agora que estás a usar o conector de MySql.

O meu exemplo mantém-se, só precisas de prefixar o "My".

A connection string para MySql também é diferente, tenho impressão

Muito obrigado mesmo cara você "salvou minha pele"

pode fechar ja consegui

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.