Conexion a sql desde vb.net con .ini

Cerrado
BECKAN Message postés 1 Date d'inscription viernes, 8 de agosto de 2008 Estatus Miembro Última intervención viernes, 8 de agosto de 2008 - 8 ago 2008 a las 02:13
 Usuario - 6 jul 2011 a las 22:59
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
que funcion cumple el dispose en este codigo de variables
0
Lo necesito en visual basic.net
0
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
3
gonzales caro
18 may 2010 a las 17:20
no se...

nob jodas
3
beatle45 Message postés 629 Date d'inscription viernes, 4 de abril de 2008 Estatus Miembro Última intervención martes, 28 de octubre de 2008 691
8 ago 2008 a las 15:35
aca te mando una explicacion

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

¿No encontraste la respuesta que buscabas?

Haz una pregunta
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
1
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
0
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¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
0
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
0
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;
}
}
0
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
0
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();
}
}
0