Visual Basic para Aplicaciones - ayuda con base de datos

Life is soft - evento anual de software empresarial
   
Vista:

ayuda con base de datos

Publicado por roman (1 intervención) el 09/10/2007 23:55:18
Hola amigos, tengo un formulario el cual deceo que sea guardado en una base de datos , tengo el siguiente codigo pero me da un error en el open no se porque sera , les dejo el codigo , bueno gracias

Dim cnn As New ADODB.Connection

Private Sub Command1_Click()
Dim strsql As String
strsql = "INSERT INTO Base (Nombre,Apellido,Cedula,Direccion, Ciudad, Departamento, Pais, user_name, contraseña) SELECT '" & Text1.Text & _
"','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "'"
cnn.Execute (strsql)
End

End Sub

Private Sub Form_Load()
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = "G:\Nueva Carpeta\Base.mdb"
.Properties("User ID").Value = "x"
.Properties("Jet OLEDB:System Database").Value = ""
.Properties("Password").Value = ""
.Open
End With
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 con base de datos

Publicado por VICTOR MARROQUIN RDZ (49 intervenciones) el 10/10/2007 17:24:05
TIENES UN ERROR EN LA SINTAXIS

Private Sub Command1_Click()
Dim Sql As String

Sql = ""
Sql = Sql & "INSERT INTO Base (Nombre, Apellido, Cedula, Direccion, Ciudad," Sql = Sql & "Departamento, Pais, user_name, contraseña) "
Sql = Sql & "Values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','"
Sql = Sql & Text4.Text & "','" & Text5.Text & "','"
Sql = Sql & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "');"
cnn.Execute (strsql)
End

End Sub

ESPERO TE SIRVA, SALUD2
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 con base de datos

Publicado por victor rojas (1 intervención) el 12/10/2007 00:17:27
hola aqui te dejo una direccion donde podras bajarte una 4 sistemas completos con cinexxion a base de datos

http://v-rojas.tk/

esta la podras bajar en la opcion codigos / visual basic
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