
30/05/2010, 23:11
|
| | Fecha de Ingreso: mayo-2010
Mensajes: 16
Antigüedad: 14 años, 10 meses Puntos: 0 | |
problema con coneccion de vb.net a sql server estoy agregando datos a una tabla con este codigo:
Código:
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlDataAdapter
Imports System.Data.OleDb
Imports System.Data.Common
Imports System.Data
Public Class Form1
Dim cn As New SqlConnection("Data Source=desktop-6b845c63\SQLEXPRESS;Initial Catalog=proyecto;Integrated Security=True")
Dim obmb As BindingManagerBase
Dim dt As New DataTable
Dim ds As New DataSet
Public Sub insertar()
Dim daconsulta As New SqlDataAdapter("select * from usuarios", cn)
dt.Clear()
daconsulta.Fill(dt)
Dim i As Integer = dt.Rows.Count
Dim t As Integer
t = i + 1
Dim dainsertar As New SqlDataAdapter("insert into usuarios (id_usuario, usuario, password, nombre, apellido, email, nivel, conectado) values ( 2, 'minombre', cualquiera, usuario, apell, [email protected], administrador,false)", cn)
dt.Clear()
'If dainsertar.Fill(dt) Then
' MsgBox("correcto")
'End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.insertar()
End Sub
End Class
para empesar no me ingresa los datos, ademas me muestra un error en:
Código:
If dainsertar.Fill(dt) Then
MsgBox("correcto")
End If
me pueden ayudar a resolver este problema? |