Visual Basic - AYUDA URGENTE

Life is soft - evento anual de software empresarial
   
Vista:

AYUDA URGENTE

Publicado por Edgar  (1 intervención) el 03/09/2009 00:50:24
Amigos del foro por favor solicito me ayuden pues soy nuevo en visual basic estoy tratando de insertar un registro a mi tabla que la tengo en sql pero no me da ningun resultado, supuestamente graba pero cuando reviso la base no existe ninguna informacion

A continuacion les pongo mi programa para que por favor me ayuden

por favor me indican que debo poner en estas lineas tambien

conn.CursorLocation = adUseServer ------ NOMBRE? NO ENTIENDO EL adUseServer
conn.CursorLocation = adUseClient------NOMBRE???? no entiendo el adUseClient

aqui esta mi programa

Private Sub cmdInsertar_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim nRecords As Long

Dim codvend As String
Dim nomcli As String
Dim ruccli As String
Dim nomvend As String

Set rs = New ADODB.Recordset
conn.CursorLocation = adUseServer
conn.CursorLocation = adUseClient
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=REMESAS;Data Source=EBENAVIDES"
conn.Open

codvend = Text1.Text
nomcli = Text2.Text
ruccli = Text3.Text
nomvend = Text4.Text

sql = sql & "INSERT INTO clientes"
sql = sql & "(clpv_cod_carg,clpv_cod_vend,clpv_nom_clpv,clpv_ape_clpv,clpv_ruc_clpv,clpv_rep_clpv,clpv_cob_clpv,clpv_ved_clpv)VALUES ('','" & codvend & "', '" & nomcli & "','','" & ruccli & "','','','" & nomvend & "')"
Set rs = conn.Execute(sql, nRecords, 0)


'MsgBox sql
' con esto verificas la sintaxis.
If nRecords > 0 Then

MsgBox "Registro añadido a la Base de Datos", vbOKOnly + vbInformation, "Informacion"

End If

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA URGENTE

Publicado por silvia (1 intervención) el 03/09/2009 02:33:32
deceo saber la solucion s lod problemas clasicos de comunicacion entre procesos
. La cena de los filosofos en el programa visual basic!!! urgente!! por favor me lo tiraron asi sin ninguna esplicacion gracias!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA URGENTE

Publicado por julio (1 intervención) el 15/10/2009 23:45:17
porfa que alguien me mande el problema de los filosofos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar