Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: thecirujano en 18 Agosto 2007, 07:07 am



Título: Duda visual con access 2000
Publicado por: thecirujano en 18 Agosto 2007, 07:07 am
Tengo el siguiento codigo para insertar desde visual a sql:

Public
Class libros
Public codigo As String
Public nombre As String
Public autor As String
Public Function ingresar(ByVal conn As SqlClient.SqlConnection)
conn.Open()
Dim sql As String = "Insert into libros values('" & codigo & "','" & nombre & "','" & autor & "')"
Dim mycommand As New SqlClient.SqlCommand (sql, conn)
mycommand.ExecuteNonQuery()
conn.Close()
Return (0)
End Function
End
Class
Public
Class Form1
Dim cadena As String = "data source=vld_lab1_06;initial catalog=II-4;integrated security=true"
Dim conn As New SqlClient.SqlConnection (cadena)
Dim objlibros As New libros
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles txtautor.TextChanged
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles MyBase.Load
End Sub
Private Sub btningresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles btningresar.Click
objlibros.codigo = txtcodigo.Text
objlibros.nombre = txtnombre.Text
objlibros.autor = txtautor.Text
objlibros.ingresar(conn)
End Sub
End
Class

Ahora Quisiera traspasarlo para insertar a access2000, ¿alguien me puede ayudar?



Título: Re: Duda visual con access 2000
Publicado por: Hans el Topo en 18 Agosto 2007, 11:30 am
el de access el connection string es algo asi xD

Código:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=basedatos.mdb;Mode=ReadWrite;Persist Security Info=False


Título: Re: Duda visual con access 2000
Publicado por: thecirujano en 18 Agosto 2007, 15:04 pm
el isert va igual? o no?


Título: Re: Duda visual con access 2000
Publicado por: Hans el Topo en 18 Agosto 2007, 19:13 pm
si, lo único que cambia a si a nivel general es alguna característica de la select