Conexion a sql desde vb.net con .ini

Cerrado
Denunciar
Message postés
1
Date d'inscription
viernes, 8 de agosto de 2008
Estatus
Miembro
Última intervención
viernes, 8 de agosto de 2008
-
 Usuario -
Hola,
Como hago para conectarme a sql con un archivo .ini desde Visual Basic .net 2003, e buscado en muchas web y encuentro muchos codigos pero nada concreto y muy enredados.

Estare muy agradesido si alguno de ustedes me hece el gran favor de explicarme de una manera sencilla.

8 respuestas

Hola colega.
Aqui tienes el codigo. funciona


Dim con As MySqlConnection
con = New MySqlConnection()

con.ConnectionString = "Database=taller04;Data Source=localhost;User Id=root;Password=admin"

Try 'Tratamiento de errores
con.Open()
MessageBox.Show("Conexión correcta")
con.Close()
Catch mirror As MySqlException
MessageBox.Show("Conexión fallida")
Finally
con.Dispose()
End Try
10
Gracias

Unas palabras de agradecimiento nunca están de más. Deja tu comentario

CCM 11050 usuarios nos han dicho gracias este mes

que funcion cumple el dispose en este codigo de variables
Lo necesito en visual basic.net
Info extra

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine

Dim reporte As New ReportDocument
reporte.Load(Server.MapPath("repPersona.rpt"))
reporte.SetDataSource(dsReporte.Tables(0))
CrystalReportViewer1.ReportSource = reporte

If gvPersona.Rows.Count > 0 Then
id_persona = gvPersona.SelectedRow.Cells(1).Text
End If

no se...

nob jodas
Message postés
629
Date d'inscription
viernes, 4 de abril de 2008
Estatus
Miembro
Última intervención
martes, 28 de octubre de 2008
694
aca te mando una explicacion

http://www.webestilo.com/mysql/
Hola:

te dejo varios ejemplos, para veas cual te sirve:

http://www.solovb.net/index.php/2009/02/05/conectarse-a-una-base-de-datos-de-sql-server-y-llenar-un-datagridview-sin-escribir-codigo/

http://www.solovb.net/index.php/2009/02/03/conectarse-con-base-sql-server-y-llenar-datagridview/


Saludos

Eliseo

http://www.solovb.net
yo lo hago así:
primero tengo una sub que busca el archivo ini y lee su contendido que viene en 5 registros:

-----------------------------------------------------------------------------
Friend Sub BuscarArchivoConfiguracion()
Dim Encontro As Boolean = False

' obtiene el path relativo de la aplicación.
DireccionRelativa = System.IO.Directory.GetCurrentDirectory()
DireccionCompleta = DireccionRelativa + "\MiArchivo.ini"

Dim objReader As New StreamReader(DireccionCompleta)
Dim sLine As String = ""
Dim arrText As New ArrayList()

Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
arrText.Add(sLine)
End If
Loop Until sLine Is Nothing
objReader.Close()

BaseDatos = arrText(2)
Dominio = arrText(3)
Servidor = arrText(4)
Usuario = arrText(5)
Passwrd=arrText(6)

End Sub
-----------------------------------------------------------------------------------------
Luego hago la conexión a la base de datos utilizando los valores rescatados desde el archivo ini de la siguiente forma


Friend Sub ConectarBaseDatos ()

Dim CUENTA As Integer

Dim miconexion As SqlConnection
miconexion = New SqlConnection

Dim MiComandoSql As SqlCommand


miconexion = New SqlConnection("data source=" & Servidor & ";" & _
"initial catalog=" & BaseDatos & ";" & _
"User Id=" & Usuario & "; password=" & Passwrd & ";")




MiComandoSql = New SqlCommand("SELECT TOP 1 CAMPO1" & _
" FROM MITABLA where USUARIO1 ='" & Usuario & "' AND CAMPO2 ='" & PASSWRD & "'", miconexion)


Try

miconexion.Open()
CUENTA = MiComandoSql.ExecuteScalar()

Catch excepcion As Exception

MessageBox.Show("Error en la conexión: " + excepcion.ToString())

Finally
miconexion.Close()
End Try

---------------------------------------------------------------------------------------------------------------

Espero que esto se sirva de ayuda, tal cual como a mi me ha ayudado mucho este sitio web.

Saludos

Pedro
pet quisiera que me ayudaras en problema que tengo con una restricion en el momento de hace la conexion pero es con visual.net 2008 y no encuentro los comandos correcto es algo parecido a lo que tu tienes lo que quiero hacer pero con comandos de visual.net 2008
me podrias ayudar
gracias¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
Mi web.config

<add name ="MiConexion" connectionString ="Database=BDVENTAS; Server=192.168.2.15; User Id=usuario; Password=usuario" providerName="System.Data.SqlClient"/>

Mi clase

Imports System.Data.Common
Imports Microsoft.Practices.EnterpriseLibrary.Common
Imports Microsoft.Practices.EnterpriseLibrary.Configuration
Imports Microsoft.Practices.EnterpriseLibrary.Data

Public Class Class1

Private dbo As Database = DatabaseFactory.CreateDatabase("MiConexion")

Public Function InsCliente(ByVal nombre As String) As DataSet
Dim resultdataset As DataSet
Dim sqlCommand As String = "ListarContactoCliente"
Dim Command As DbCommand = dbo.GetStoredProcCommand(sqlCommand, nombre)

Using connection As DbConnection = dbo.CreateConnection()
connection.Open()
Dim transaction As DbTransaction = connection.BeginTransaction()
Try
resultdataset = dbo.ExecuteDataSet(Command, transaction)
transaction.Commit()
Return resultdataset
Catch ex As Exception
transaction.Rollback()
Console.WriteLine(ex)
Return Nothing
End Try
resultdataset.Dispose()
connection.Close()
End Using

End Function

End Class
En C#:

using System;
using Microsoft.Practices.EnterpriseLibrary.Data;
using System.Data.Common;
using System.Data;
namespace IGESCC.DATAACCESS.ExploraX_3Play
{
public static DataSet DevUsuario(ref string NO_USUARI, ref string NO_PASSWD)
{
DataSet resultsDataSet = null;
try
{
Database db = DatabaseFactory.CreateDatabase("DBINDICADOR");
string sqlCommand = "DevUsuario";
DbCommand Command = db.GetStoredProcCommand(sqlCommand, NO_USUARI, NO_PASSWD);
resultsDataSet = db.ExecuteDataSet(Command);
}
catch(Exception ex)
{

}
return resultsDataSet;
}
}
para ingresar un registro:

Public Function InsPersona(ByVal nombre As String, ByVal edad As Integer, ByVal tipo As Integer) As Boolean
Dim result As Boolean = False
Dim sqlCommand As String = "SP_INSPERSONA"
Dim command As DbCommand = dbo.GetStoredProcCommand(sqlCommand)
dbo.AddInParameter(command, "NOMBRE", DbType.String, nombre)
dbo.AddInParameter(command, "EDAD", DbType.Int64, edad)
dbo.AddInParameter(command, "TIPO", DbType.Int64, tipo)

Using connection As DbConnection = dbo.CreateConnection
connection.Open()
Dim transaction As DbTransaction = connection.BeginTransaction
Try
dbo.ExecuteDataSet(command, transaction)
transaction.Commit()
result = True
Catch ex As Exception
transaction.Rollback()
Console.WriteLine(ex.Message)
End Try
Return result
connection.Close()
End Using
End Function
private void btnEjecutar_Click(object sender, EventArgs e)
{
SqlCommand cmd = new SqlCommand();
SqlConnection cn = new SqlConnection("Database=BDPRUEBA; Server=SQLEXPRESS; User Id=sa; Password=sql");
cmd.Connection = cn;
cmd.CommandTimeout = 36000;
cmd.CommandText = "SP_CONSULTA";

SqlParameter parametro1 = new SqlParameter();
parametro1.ParameterName = "@NOMBRE";
parametro1.Value = "xxx";

cmd.Parameters.Add(parametro1);

cmd.CommandType = CommandType.StoredProcedure;
SqlDataAdapter da = new SqlDataAdapter(cmd);
DataTable dt = new DataTable();

try
{
da.Fill(dt);
lblResultado.Text = "Se ejecutó el procedure con éxito";
}
catch (Exception Ex)
{
throw new Exception(Ex.Message);
lblResultado.Text = "Ocurrió un error al ejecutar el procedure";
}
finally
{
cn.Close();
cn.Dispose();
cmd.Dispose();
}
}