none
ajuda em VB.net... Urgente... !!! RRS feed

  • Pergunta

  • Galera é o seguinte, estou precisando de uma ajuda em vb.net, pois num entendo muito dessa linguagem, ou melhor não entendo quase nada.... rsrsrsrs !

     É o seguinte, tenho um projeto aqui e estava criando classes em C#, porém consegui com um amigo uma classe em vb que resolvia um problemão que eu tava tendo aqui e ela é bem grande, com isso estou usando ela... mas estava precisando criar uma classe pra fazer uma conexão com o Mysql, tenho uma aqui que uso mas está em C#, alguém poderia me dá uma força e passar ela pra vb ? ela tá abaixo...

     

    Estou precisando disso com urgência galera... quem puder me dá uma força ai... valew !!!

     

     

    using System;

    using System.Data;

    using System.Configuration;

    using System.Web;

    using System.Web.Security;

    using System.Web.UI;

    using System.Web.UI.WebControls;

    using System.Web.UI.WebControls.WebParts;

    using System.Web.UI.HtmlControls;

    using MySql.Data.MySqlClient;

     

    public class InterfaceMySql

    {

    private MySqlConnection dbConexaoMySql;

    public MySqlConnection DBConexaoMysql

    {

    get { return dbConexaoMySql; }

    set { dbConexaoMySql = value; }

    }

    public InterfaceMySql()

    {

    dbConexaoMySql = new MySqlConnection();

    dbConexaoMySql.ConnectionString = System.Configuration.ConfigurationManager.AppSettings["MySQLConnectionString"];

    dbConexaoMySql.Open();

    }

    public DataTable ListarCategoria(string anIdioma)

    {

    string SentencaSql = "Select C.ID,C.Nome,I.NomedaImagem from GN_Categoria C, GN_Idiomas D,GN_Imagens I Where C.Idioma = D.Id and C.Imagem = I.Id and D.Sigla=?Sigla";

    MySqlDataAdapter adapter = new MySqlDataAdapter(SentencaSql, dbConexaoMySql);

    adapter.SelectCommand.Parameters.AddWithValue("?Sigla", anIdioma);

    DataTable TabelaTmp = new DataTable();

    adapter.Fill(TabelaTmp);

    adapter.Dispose();

    dbConexaoMySql.Close();

    return TabelaTmp;

    }

    quarta-feira, 16 de maio de 2007 23:51

Respostas

  • Olá Mark segue o segue codigo em VB !

    Existem um site que pode ser usando para converter codigos do VB para C# ou C# para VB, segue o link !

     

    http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx

     

    Imports System
    Imports System.Data
    Imports System.Configuration
    Imports System.Web
    Imports System.Web.Security
    Imports System.Web.UI
    Imports System.Web.UI.WebControls
    Imports System.Web.UI.WebControls.WebParts
    Imports System.Web.UI.HtmlControls
    Imports MySql.Data.MySqlClient

    Public Class InterfaceMySql
     Private dbConexaoMySql As MySqlConnection

     Public Property DBConexaoMysql() As MySqlConnection
       Get
         Return dbConexaoMySql
       End Get
       Set
         dbConexaoMySql = value
       End Set
     End Property

     Public Sub New()
       dbConexaoMySql = New MySqlConnection
       dbConexaoMySql.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("MySQLConnectionString")
       dbConexaoMySql.Open
     End Sub

     Public Function ListarCategoria(ByVal anIdioma As String) As DataTable
       Dim SentencaSql As String = "Select C.ID,C.Nome,I.NomedaImagem from GN_Categoria C, GN_Idiomas D,GN_Imagens I Where C.Idioma = D.Id and C.Imagem = I.Id and D.Sigla=?Sigla"
       Dim adapter As MySqlDataAdapter = New MySqlDataAdapter(SentencaSql, dbConexaoMySql)
       adapter.SelectCommand.Parameters.AddWithValue("?Sigla", anIdioma)
       Dim TabelaTmp As DataTable = New DataTable
       adapter.Fill(TabelaTmp)
       adapter.Dispose
       dbConexaoMySql.Close
       Return TabelaTmp
     End Function
    End Class

    quinta-feira, 17 de maio de 2007 11:21

Todas as Respostas

  • Olá Mark segue o segue codigo em VB !

    Existem um site que pode ser usando para converter codigos do VB para C# ou C# para VB, segue o link !

     

    http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx

     

    Imports System
    Imports System.Data
    Imports System.Configuration
    Imports System.Web
    Imports System.Web.Security
    Imports System.Web.UI
    Imports System.Web.UI.WebControls
    Imports System.Web.UI.WebControls.WebParts
    Imports System.Web.UI.HtmlControls
    Imports MySql.Data.MySqlClient

    Public Class InterfaceMySql
     Private dbConexaoMySql As MySqlConnection

     Public Property DBConexaoMysql() As MySqlConnection
       Get
         Return dbConexaoMySql
       End Get
       Set
         dbConexaoMySql = value
       End Set
     End Property

     Public Sub New()
       dbConexaoMySql = New MySqlConnection
       dbConexaoMySql.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("MySQLConnectionString")
       dbConexaoMySql.Open
     End Sub

     Public Function ListarCategoria(ByVal anIdioma As String) As DataTable
       Dim SentencaSql As String = "Select C.ID,C.Nome,I.NomedaImagem from GN_Categoria C, GN_Idiomas D,GN_Imagens I Where C.Idioma = D.Id and C.Imagem = I.Id and D.Sigla=?Sigla"
       Dim adapter As MySqlDataAdapter = New MySqlDataAdapter(SentencaSql, dbConexaoMySql)
       adapter.SelectCommand.Parameters.AddWithValue("?Sigla", anIdioma)
       Dim TabelaTmp As DataTable = New DataTable
       adapter.Fill(TabelaTmp)
       adapter.Dispose
       dbConexaoMySql.Close
       Return TabelaTmp
     End Function
    End Class

    quinta-feira, 17 de maio de 2007 11:21
  • Grande Julio, valeu por responder..., mas resolvi o problema isolando a classe vb em um projeto do tipo class library ,depois compilei e utilizei a dll gerada. Mas esse link que vc me passou vai ser uma mão na roda... muito massa...valew mesmo... !
    quinta-feira, 17 de maio de 2007 16:12