Hola amigos tengo un problema con un Insert en una aplicacion.
Este es mi codigo:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sr = File.OpenText("C:\Users\Steven\Desktop\Archival.TX T")
Do
lectura = sr.ReadLine()
TextBox1.Text = TextBox1.Text & lectura & Chr(13) & vbCrLf 'Le indicamos a lectura que ademas nos vaya agregando los espacios y saltos respectivos
If (colo = lectura) Then
Dim descrip, direcc, forma, saldo As String
Dim codigo As String = Nothing
Dim datos As String()
cnn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL.1\MSSQL\Data\Examen_1.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
cnn.Open()
Do
Try
lectura = sr.ReadLine
datos = lectura.Split("," & vbCrLf)
codigo = datos(0)
descrip = datos(1)
direcc = datos(2)
forma = datos(3)
saldo = datos(4)
consul = "INSERT INTO Clientes (Codigo_del_Cliente,Descripcion,Direccion,Forma_Fa ctura,Saldo_Actual) Values( " _
& codigo & ", '" & descrip & "', '" & direcc & "', '" & forma & "','" & saldo & "');"
cmd = New SqlCommand(consul, cnn)
cmd.ExecuteNonQuery()
cmd = Nothing
Catch
MsgBox("Error")
End Try
Loop Until lectura Is Nothing
End If
Loop Until lectura Is Nothing 'Hasta que se acaben las lineas
sr.Close()
cnn.Close()
End Sub
NOTA:
Al realizar el INSERT el programa me dice que el Nombre de una de las variables
que voy a Insertar es Invalido en este Contexto.
Ya no se que pueda ser, agradeceria sus comentarios.........
