AnaGPSI Posted June 12, 2012 at 02:36 PM Report Share #462224 Posted June 12, 2012 at 02:36 PM Tenho o seguinte código: 'If ComboBox2.Text = "" Or combodiscimodular.Text = "" Or TextBox2.Text = "" Or txtnomealuno1.Text = "" Or combomodmodular.Text = "" Or ComboBox5.Text = "" Or ComboBox6.Text = "" Or TextBox6.Text = "" Or ComboBox7.Text = "" Then ' MsgBox("Existem campos vazios. Preencha os campos em branco!") 'Else ''''''''''''''''''''''''''''''''''''''''''' Dim a, b, c, sql As String a = ComboBox2.Text b = combodiscimodular.Text c = ComboBox7.Text Dim connetionString As String Dim oledbCnn As OleDbConnection Dim oledbCmd As OleDbCommand Dim cod_disc As Integer connetionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\GPSI\Documents\mydb.accdb;" Dim nome_disciplina = combodiscimodular.SelectedItem Dim mydb As New OleDbConnection(connetionString) mydb.Open() '''''''''''código da disciplina selecionada na combobox'''''''' sql = "select * from disciplina where nome_disci='" & combodiscimodular.Text & "'" oledbCnn = New OleDbConnection(connetionString) oledbCnn.Open() oledbCmd = New OleDbCommand(sql, oledbCnn) Dim oledbReader As OleDbDataReader = oledbCmd.ExecuteReader() While oledbReader.Read cod_disc = oledbReader.Item(0) End While oledbReader.Close() oledbCmd.Dispose() oledbCnn.Close() 'MsgBox(cod_disc) ''''''''''''''''''''''''''''''''''''''''''' Dim oledbCnn1 As OleDbConnection Dim oledbCmd1 As OleDbCommand Dim cod_mod As Integer sql = "select * from modulos where nome_mod='" & combomodmodular.Text & "'" oledbCnn1 = New OleDbConnection(connetionString) oledbCnn1.Open() oledbCmd1 = New OleDbCommand(sql, oledbCnn1) Dim oledbReader1 As OleDbDataReader = oledbCmd1.ExecuteReader() While oledbReader1.Read cod_mod = oledbReader1.Item(0) End While oledbReader1.Close() oledbCmd1.Dispose() oledbCnn1.Close() 'MsgBox(cod_mod) For Each item As DataGridViewRow In DataGridView1.Rows 'MsgBox(item.Cells(0).Value) 'MsgBox(item.Cells(1).Value) 'MsgBox(item.Cells(2).Value) 'MsgBox(item.Cells(3).Value) Dim aa As String = item.Cells(3).Value Dim oledbCnn2 As OleDbConnection Dim oledbCmd2 As OleDbCommand Dim processo As Integer Dim Sql1 As String = "Select n_processo from aluno where nome= '" & aa & "'" oledbCnn2 = New OleDbConnection(connetionString) Try oledbCnn2.Open() oledbCmd2 = New OleDbCommand(Sql1, oledbCnn2) Dim oledbReader2 As OleDbDataReader = oledbCmd2.ExecuteReader() While oledbReader2.Read processo = oledbReader2.Item(0) 'MsgBox(processo) End While Finally End Try Dim bb As String = item.Cells(0).Value bb = Format(item.Cells(0).Value, "dd-MM-yyyy") '& "%" 'MsgBox(bb) Dim cc As String = item.Cells(1).Value 'MsgBox(cc) Dim dd As String = item.Cells(2).Value 'MsgBox(dd) Dim sql3 As String = "Insert Into classificacao_modulo ([id_modulo], [classificacao], [classificacao_extenso], [n_processo], [data_conclusao]) values (" & cod_mod & "," & cc & ",'" & dd & "'," & processo & ",'" & bb & "')" Dim cmd1 As New OleDbCommand(sql3, mydb) cmd1.ExecuteNonQuery() MsgBox("Avaliações introduzidas!") Ele insere o dados mas depois dá-me o seguinte erro: Erro de sintaxe na instrução INSERT INTO. Na linha: cmd1.ExecuteNonQuery() Do seguinte bocado de código: Dim sql3 As String = "Insert Into classificacao_modulo ([id_modulo], [classificacao], [classificacao_extenso], [n_processo], [data_conclusao]) values (" & cod_mod & "," & cc & ",'" & dd & "'," & processo & ",'" & bb & "')" Dim cmd1 As New OleDbCommand(sql3, mydb) cmd1.ExecuteNonQuery() MsgBox("Avaliações introduzidas!") Link to comment Share on other sites More sharing options...
Caça Posted June 12, 2012 at 02:50 PM Report Share #462230 Posted June 12, 2012 at 02:50 PM Para evitar estes erros deves usar parâmetros. Tenta correr a query final directamente do Access. Pedro Martins Não respondo a duvidas por PM Link to comment Share on other sites More sharing options...
AnaGPSI Posted June 12, 2012 at 02:54 PM Author Report Share #462231 Posted June 12, 2012 at 02:54 PM Parâmetros como? Mas ele guarda na base de dados! Link to comment Share on other sites More sharing options...
Caça Posted June 12, 2012 at 03:06 PM Report Share #462238 Posted June 12, 2012 at 03:06 PM Ele insere esse registo? Pedro Martins Não respondo a duvidas por PM Link to comment Share on other sites More sharing options...
AnaGPSI Posted June 12, 2012 at 03:08 PM Author Report Share #462242 Posted June 12, 2012 at 03:08 PM Sim! e depois dá o erro! Estranho! Link to comment Share on other sites More sharing options...
Caça Posted June 12, 2012 at 03:24 PM Report Share #462256 Posted June 12, 2012 at 03:24 PM Não tens mais nenhum insert ou mais algum código abaixo desse? Pedro Martins Não respondo a duvidas por PM Link to comment Share on other sites More sharing options...
bioshock Posted June 12, 2012 at 05:58 PM Report Share #462331 Posted June 12, 2012 at 05:58 PM http://wiki.portugal-a-programar.pt/dev_net:vb.net:access Link to comment Share on other sites More sharing options...
AnaGPSI Posted June 13, 2012 at 07:39 AM Author Report Share #462405 Posted June 13, 2012 at 07:39 AM Já me resolvi obrigada! Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now