Scribd
Upload
53 views6 pages

SQL Connection and Form Handling Code

This document discusses connecting to a SQL database and performing CRUD operations from a .NET application. It defines a connection string to a SQL Server database and uses OleDb to execute queries and populate a dataset. It includes code to open the connection, fill the dataset, insert a new row, and update the database. It also defines a class to clear fields in a form's controls.

Uploaded by

Daryl Worrell
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PPTX, PDF, TXT or read online on Scribd
53 views6 pages

SQL Connection and Form Handling Code

This document discusses connecting to a SQL database and performing CRUD operations from a .NET application. It defines a connection string to a SQL Server database and uses OleDb to execute queries and populate a dataset. It includes code to open the connection, fill the dataset, insert a new row, and update the database. It also defines a class to clear fields in a form's controls.

Uploaded by

Daryl Worrell
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PPTX, PDF, TXT or read online on Scribd

Conexin a Sql

Public Class Borrar Public Sub Limpiar_campos(ByVal FORMA As [Link])

Dim CTR1 As [Link] For Each CTR1 In [Link]


If ([Link]() Is GetType(TextBox)) Then [Link] = "" End If If ([Link]() Is GetType(ComboBox)) Then [Link] = "" End If Next End Sub End Class

Codigo del formulario Imports System Public Class Form1 Inherits [Link] ' Dim strcon As String = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Micro;Local Souurce=(local)" Dim strcon As String = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CLIENTES;Data Source=FELIXPC\SQLEXPRESS;Initial Catalog=NORTHWIND;Integrated Security=True"

Dim sql As String = "Select * from Clientes" Dim con As New [Link](strcon) Dim adaptador As New [Link](sql, con) Dim dset As New DataSet Dim bulder As New [Link](adaptador) 'Objeto sumamente necesario para insertar, modificar, eliminar

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Try [Link]() [Link](dset, "Clientes") Catch ex As Exception [Link]("Fallo la conexion ", [Link])

End Try

If [Link] = [Link] Then Try ' VALIDAR DATOS ANTES DE GRABAR Dim nuevo As DataRow nuevo = [Link]("Clientes").NewRow nuevo("idcliente") = Val([Link]) nuevo("compaia") = [Link] nuevo("nombre") = [Link] nuevo("telefono") = Val([Link]) ' ADIR REGISTRO A LA TABLA Y ACTULIZARLA [Link]("Clientes").[Link](nuevo) [Link]([Link], "Clientes") [Link]("Registro insertado") Dim CONTROL As New Control Catch ex As Exception End Try End If [Link]() End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Dim miclase As New BORRAR miclase.Limpiar_campos(Me) End Sub -----------------------------------------End Class

You might also like