COMO ABRIR O BANCO ?

GILBERTOJW 05/03/2013 13:35:25
#419937
Pessoal o que tá faltando para essa estrutura abrir o banco ao executar o update ? A mensagem de erro em tempo de execução é : The ConnectionString property has not been initialized.

Veja o código ?

Dim conect As New OleDb.OleDbConnection
Dim connS As String
If TextBox13.Text <> [Ô][Ô] And TextBox13.Text <> 0 Then
connS = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:ivaldo.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô]
conect.ConnectionString = connS
conect.Open()
Dim selcom As New OleDb.OleDbCommand
selcom.CommandText = [Ô]SELECT num FROM [produtos] WHERE produto = [ô][Ô] & TextBox5.Text & [Ô][ô];[Ô]
selcom.Connection = conect
Dim dr As OleDb.OleDbDataReader
dr = selcom.ExecuteReader()
While dr.Read()
intItem = dr.Item(0)
End While
conect.Close()

TextBox6.Text = TextBox13.Text
DataGridView1.Rows(intLinhaescolhida).Cells(3).Value = TextBox13.Text

cnnOLEDB.Open()
cmdUpdate.CommandText = [Ô]UPDATE orcamentos SET quantidade=[Ô] & TextBox13.Text & [Ô] WHERE numorc = [Ô] & TextBox4.Text & [Ô] and produto=[Ô] & intItem & [Ô] and quantidade=[Ô] & TextBox6.Text & [Ô];[Ô]
cmdUpdate.CommandType = CommandType.Text
cmdUpdate.Connection = cnnOLEDB
cmdUpdate.ExecuteNonQuery()
cmdUpdate.Dispose()
cnnOLEDB.Close()

TextBox13.Visible = False
Button9.Visible = False
Button5.Visible = True
ComboBox6.Focus()
Else
MsgBox([Ô]é necessário informar a nova quantidade.[Ô])
TextBox13.Focus()
End If
OMAR2011 05/03/2013 13:46:06
#419939 Resposta escolhida
Dim conect As New OleDb.OleDbConnection
Dim connS As String
If TextBox13.Text <> [Ô][Ô] And TextBox13.Text <> 0 Then
connS = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:ivaldo.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô]
conect.ConnectionString = connS
conect.Open()
Dim selcom As New OleDb.OleDbCommand
selcom.CommandText = [Ô]SELECT num FROM [produtos] WHERE produto = [ô][Ô] & TextBox5.Text & [Ô][ô];[Ô]
selcom.Connection = conect
Dim dr As OleDb.OleDbDataReader
dr = selcom.ExecuteReader()
While dr.Read()
intItem = dr.Item(0)
End While
conect.Close()

TextBox6.Text = TextBox13.Text
DataGridView1.Rows(intLinhaescolhida).Cells(3).Value = TextBox13.Text

[txt-color=#e80000]cnnOLEDB.Open()[/txt-color] [ô]Lembra do post anterior.Este erro aconteceu anterior a este.Você não abriu nada.Está faltando a conexão.Abriu somente o primeiro.

cmdUpdate.CommandText = [Ô]UPDATE orcamentos SET quantidade=[Ô] & TextBox13.Text & [Ô] WHERE numorc = [Ô] & TextBox4.Text & [Ô] and produto=[Ô] & intItem & [Ô] and quantidade=[Ô] & TextBox6.Text & [Ô];[Ô]
cmdUpdate.CommandType = CommandType.Text
cmdUpdate.Connection = cnnOLEDB
cmdUpdate.ExecuteNonQuery()
cmdUpdate.Dispose()
cnnOLEDB.Close()

TextBox13.Visible = False
Button9.Visible = False
Button5.Visible = True
ComboBox6.Focus()
Else
MsgBox([Ô]é necessário informar a nova quantidade.[Ô])
TextBox13.Focus()
End If
GILBERTOJW 05/03/2013 14:14:22
#419940
Omar antes de pedir ajuda eu já tinha tentado baseado naquela orientação anterior. Após receber sua segestão deste tópico eu tentei de novo , mas alguma coisa está me escapando cara. Não consigo fazer rodar.
As vezes as coisas escapam ao conhecimento de um iniciante, mesmo que pareçam óbvias.
Me dá a dica : Que declarações preciso colocar para rodar ?
GILBERTOJW 05/03/2013 15:02:02
#419941
Omar já resolvi jovem. A questão era que antes de abrir o banco eu apagava um textbox que era necessário para a cláusula where.
Agradeço a preocupação e ajuda.
Tópico encerrado , respostas não são mais permitidas
Voltar