Member 13897083 Ответов: 1

Исключение 'system.data.sqlclient.sqlexception' ru system.data.dll


Всем привет,

Меня зовут Рауль, и я пишу вам из Мехико.

Я пытаюсь установить соединение с visual studio и SQL Server

Сначала я сделал модуль, пытаясь установить простое соединение с моим сервером, как это:

Imports System.Data.SqlClient
Module CONEXION
    Public cn As New SqlConnection("server = [Ip Server] database = DB; user id = sa; password=*****")
End Module

Тогда код формы выглядит следующим образом:

Imports System.Data.SqlClient

Public Class Form1
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub btngrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngrabar.Click

        Dim sql As String = "intert into PRUEBA values(@CODIGO,@NOMBRE,@APELLIDO,@DIRECCION,@TELEFONO)"
        Dim cmd As New SqlCommand(sql, cn)
        Try
            cmd.CommandType = CommandType.Text
            cmd.Parameters.Add("@CODIGO", SqlDbType.VarChar, 5).Value = Me.txtcodigo.Text
            cmd.Parameters.Add("@NOMBRE", SqlDbType.VarChar, 25).Value = Me.txtnombres.Text
            cmd.Parameters.Add("@APELLIDO", SqlDbType.NVarChar, 25).Value = Me.txtapellidos.Text
            cmd.Parameters.Add("@DIRECCION", SqlDbType.NVarChar, 25).Value = Me.txtdireccion.Text
            cmd.Parameters.Add("@TELEFONO", SqlDbType.Float, 53).Value = Me.txttelefono.Text
            cn.Open()
            cmd.ExecuteNonQuery()
            MessageBox.Show("REGISTRO INSERTADO CORRECTAMENTE")
        Catch ex As Exception


        End Try
    End Sub

    Private Sub btnnuevo_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.txtcodigo.Text = ""
        Me.txtnombres.Text = ""
        Me.txtapellidos.Text = ""
        Me.txtdireccion.Text = ""
        Me.txttelefono.Text = ""

    End Sub
End Class


Сначала я подумал, что это соединение de sa, поэтому я перезапустил службы, и я был решен. Но все же исключение составляет выполнение формы.

Существует ли способ решить эту проблему?

Спасибо, что уделили мне время.

с уважением.
Рауль

Что я уже пробовал:

Я пытаюсь вставить данные в базу данных 'PRUEBAS', так как Visual Studio to SQL Server, когда я нажимаю кнопку "Cargar", появляется исключение de

Системы'.Данных.Sqlclient как.Sqlexception в' Ан System.Data.dll

С уважением

Gerry Schmitz

Проверьте "внутренний.Сообщение об исключении.

1 Ответов

Рейтинг:
2

OriginalGriff

Ну, строка подключения неверна:

Public cn As New SqlConnection("server = [Ip Server] database = DB; user id = sa; password=*****")
Вам нужна точка с запятой между предложениями сервера и базы данных:
Public cn As New SqlConnection("server = [Ip Server];database = DB; user id = sa; password=*****")
Но начните с этого: Простое создание строки подключения SQL[^] для создания рабочей строки.

Затем заклинание вставить правильно:
Dim sql As String = "intert into PRUEBA values(@CODIGO,@NOMBRE,@APELLIDO,@DIRECCION,@TELEFONO)"
Должно быть
Dim sql As String = "INSERT into PRUEBA values(@CODIGO,@NOMBRE,@APELLIDO,@DIRECCION,@TELEFONO)"

Тогда перестаньте глотать исключения!
Регистрируйте их, сообщайте о них, но пустые блоки catch-плохая идея, поскольку они выбрасывают всю информацию, необходимую для решения проблемы ...