Visual Basic.NET - aprendiz ado.net

   
Vista:

aprendiz ado.net

Publicado por daicy (3 intervenciones) el 15/05/2014 20:39:25
alguien por favor que me explique o tenga documentacion ojala grafica de como hacer la conexion a sql server 2008 con visual net 2012, mas que todo como debe estar configurado el sql server 2012 para que la conexion desde codigo en el programa sea exitosa, agradezco de ante mano cualquier informacion ojala un tanto completa dado que inicio con este nuevo tema
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

aprendiz ado.net

Publicado por omar pc.net.2018@hotmail.com (128 intervenciones) el 16/05/2014 03:23:33
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Imports System.Data.SqlClient
 
Public Class Conexión
 
Function registro(ByVal sqla As String) As String
        Dim s As String = ""
        Try
            Dim cmdrea As New SqlCommand(sqla, conexion)
            Dim numfila As Integer
            'numfila numero de filas afectadas
            conexion.Open()
            numfila = cmdrea.ExecuteNonQuery() 'es una funcion devuelve el numero de filas afectadas int
            conexion.Close()
            If numfila > 0 Then
                s = "si"
            End If
        Catch ex As Exception
            conexion.Close()
        End Try
        Return s
    End Function
 
 
 
End Class
 
 
    Dim conexion As New SqlConnection("Data Source=.; Initial Catalog=diseños; Integrated Security=true")
 
 
''usar la coenxion
 Dim miclase As New Conexion
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim s As String = ""
        s = miclase.registro("insert into trabajadores values('" & t1.Text & "','" & t2.Text & "','" & t3.Text & "','" & t4.Text & "','" & t5.Text & "','" & t6.Text & "','" & t7.Text & "','" & t8.Text & "')")
        If s = "si" Then
            MsgBox("Datos registrados correctamente", MsgBoxStyle.Critical, "Aviso")
        Else
 
        End If
    End Sub

si tienes dudas envíame un email
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

aprendiz ado.net

Publicado por Alvaro Godoy aegodoy@gmail.com (26 intervenciones) el 16/05/2014 18:51:52
Enviame un correo a aegodoy@gmail.com
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