BOA TARDE GALERA.. SOBRE DUVIDA VB

MEGAMELO2 25/08/2013 14:16:10
#428084
¨segue código

Dim sql As String = [Ô]INSERT INTO CLIENTES([Nome CLIENTE]) VALUES (@nome)[Ô]
Dim conn As SqlCeConnection = New SqlCeConnection([Ô]Data Source=C:\Users\Andreas\Documents\Visual Studio 2010\Projects    estederelacoes    estederelacoes    este.sdf[Ô])
Dim cmd As New SqlCeCommand(sql, conn)
cmd.Parameters.Add(New SqlCeParameter([Ô]@nome[Ô], TXTNOME.Text))
Try
conn.Open()
cmd.ExecuteNonQuery()
MessageBox.Show([Ô]Nome inserido como sucesso ![Ô])
Catch ex As Exception
MessageBox.Show([Ô]Erro: [Ô])
Finally
conn.Close()
End Try

e o seguinte tenho duas tabelas simples
a tabela cliente e a tabela funcionário
onde idcli e chave estrangeira dentro de funcionários
como eu colocaria nesse código para ele pegar o ultimo valor do campo idcli e jodar dentro da tabela funcionários idcli???
obrigado
TECLA 25/08/2013 16:40:06
#428087
Verifique se SqlCE aceita a instrução @@IDENTITY (não pesquisei e não tenho certeza ).

Dim con As New SqlServerCe.SqlCeConnection(ConnectionString)
Dim cmd As New SqlServerCe.SqlCeCommand
Dim id As New Object
cmd.CommandText = [Ô]SELECT @@IDENTITY AS TEMPVALUE[Ô]
cmd.CommandType = CommandType.Text
cmd.Connection = con
cmd.Connection.Open()
id = cmd.ExecuteScalar
MEGAMELO2 25/08/2013 19:29:02
#428091
INFELIZMENTE NAO ESTA DANDO CERTO AMIGO... MAS MUITO OBRIGADO
OMAR2011 25/08/2013 21:05:47
#428094 Resposta escolhida
Este código é apenas para inserir na tabela clientes, e ainda seu idcli tem que ser auto numeração.
Para pegar o último registro da Tabela Clientes,faça desta forma.
Usando o código do Tecla,faça deste jeito.
cmd.CommandText = Select max(idcli) From Clientes.
Ai vai pegar o ultimo registro.
MEGAMELO2 25/08/2013 21:19:21
#428095
ESTOU TENDO PROBLEMAS PARA INTEGRAR ESSES COMANDO NO CODIGO QUE TENHO, ESTOU TENTANDO MONTAR UMA QUERY SO... OBRIGADO PELA FORÇA...
SOU PROGRAMADOR CLIPPER TA DIFICIL DE ME ADAPTAR
MEGAMELO2 25/08/2013 23:19:14
#428100
obrigado a todos consegui resolver da seguinte maneira
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim sql2 As String = [Ô]Select max(idcli) From Clientes [Ô]
Dim sql As String = [Ô]INSERT INTO CLIENTES([Nome]) VALUES (@nome);[Ô]
Dim conn As SqlCeConnection = New SqlCeConnection([Ô]Data Source=C:\Users\Andreas\Documents\Visual Studio 2010\Projects    estederelacoes    estederelacoes    este.sdf[Ô])
Dim cmd As New SqlCeCommand(sql, conn)
Dim CMD2 As New SqlCeCommand(sql2, conn)
Dim ID As Integer
cmd.Parameters.Add(New SqlCeParameter([Ô]@nome[Ô], TXTNOME.Text))
Try
conn.Open()
cmd.ExecuteNonQuery()
ID = CMD2.ExecuteScalar()
MessageBox.Show([Ô]Nome inserido como sucesso ![Ô])
MessageBox.Show(ID)

Catch ex As Exception
MessageBox.Show([Ô]Erro: [Ô])

Finally
conn.Close()
End Try
End Sub
MEGAMELO2 26/08/2013 00:24:47
#428101
FINALMENTE APOS O DIA TODO SEGUE SOLUÇÃO...


Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim sql As String = [Ô]INSERT INTO CLIENTES([Nome]) VALUES (@nome);[Ô]
Dim sql2 As String = [Ô]Select max(idcli) From Clientes [Ô]
Dim sql3 As String = [Ô]INSERT INTO FUNCIONARIO([IDCLI]) VALUES (@ID);[Ô]
Dim SQL3S As String = [Ô]Select max(idFUNC) From FUNCIONARIO [Ô]
Dim sql4 As String = [Ô]INSERT INTO servicos([IDfunc]) VALUES (@Idf);[Ô]
Dim conn As SqlCeConnection = New SqlCeConnection([Ô]Data Source=C:\Users\Andreas\Documents\Visual Studio 2010\Projects    estederelacoes    estederelacoes    este.sdf[Ô])
Dim cmd As New SqlCeCommand(sql, conn)
Dim CMD2 As New SqlCeCommand(sql2, conn)
Dim CMD3S As New SqlCeCommand(SQL3S, conn)
Dim CMD3 As New SqlCeCommand(sql3, conn)
Dim CMD4 As New SqlCeCommand(sql4, conn)
Dim ID As Integer
Dim IDF As Integer
cmd.Parameters.Add(New SqlCeParameter([Ô]@nome[Ô], TXTNOME.Text))
CMD3.Parameters.Add(New SqlCeParameter([Ô]@id[Ô], SqlDbType.Int, 4))
CMD4.Parameters.Add(New SqlCeParameter([Ô]@idF[Ô], SqlDbType.Int, 4))
Try
conn.Open()
cmd.ExecuteNonQuery()
ID = CMD2.ExecuteScalar()
CMD3.Parameters([Ô]@ID[Ô]).Value = ID
CMD3.ExecuteNonQuery()
IDF = CMD3S.ExecuteScalar()
CMD4.Parameters([Ô]@IDF[Ô]).Value = IDF
CMD4.ExecuteNonQuery()
MessageBox.Show([Ô]Nome inserido como sucesso ![Ô])
MessageBox.Show(ID)
Catch ex As Exception
MessageBox.Show([Ô]Erro: [Ô])
Finally
conn.Close()
End Try
End Sub

End Class

OBRIGADO A TODOS
OMAR2011 26/08/2013 08:38:25
#428106
Esqueceu de fechar o post.
Valeu.
Tópico encerrado , respostas não são mais permitidas
Voltar