Como conectar a base MySQL

webfuture · Julho 9, 2008

Galera estou com um probleminha aqui, mexo a pouco tempo com Asp.Net, estou montando uma tela onde tem alguns campos e a pessoa preenchendo e buscando lista abaixo o resultado, o script funciona com Access, mas com mySQL não consegui de forma alguma fazer, peguei alguns scripts da net, algumas dicas mas nada, olhem o script funcionando....

Vejam o código:

<%@ Page Language="VB" Debug="True" CompilerOptions='/R:"C:\Arquivos de programas\Microsoft.NET\Odbc.Net\Microsoft.Data.Odbc.dll"' %>
<%@ import namespace="system.data"%>
<%@ import namespace="system.data.oledb"%>
<%@ Import Namespace="Microsoft.Data.ODBC" %>

<script runat="server">

Dim strConexao as String
Dim StrCaminho as String
Dim strSQL As String

Sub btn_ok(sender as object, e as eventargs)
		StrCaminho = "c:\serieweb\aspnet\database\dbEditora.mdb"
		strConexao = "Provider=Microsoft.Jet.OLEDB.4.0;"
		strConexao = strConexao + "Data Source=" + StrCaminho
		
	Dim ObjConexao as New OleDBConnection(strconexao)

		strSQL = "Select * from livros where autor like '%" & nome.Text & "%' "
		
		Dim objCommand As New OleDbCommand(strSQL, ObjConexao)

		Dim dr As OleDbDataReader

		ObjConexao.Open()
		dr = objcommand.ExecuteReader()

		datagrid1.DataSource = dr
		datagrid1.DataBind()

		dr.Close()
		ObjConexao.Close()
	End Sub
</script>

<html>
<head>
<title></title>
<link rel="stylesheet" href="../includes/estilos.css" />
</head>

<body bgcolor="#ffffff" marginwidth="0" marginheight="0" topmargin="0" leftmargin="0">

<br />

<form runat="server">

	<table width="670" border="1" bordercolor="#cococo" cellpadding="3" align="center" cellspacing="0">
		<tr>
			<td>
			
				<table width="100%" cellspacing="0" cellpadding="2">
					<tr>
						<td class="titulo_opcao">Gerenciamento de cadastros</td>
					</tr>
					<tr>
						<td height="40"></td>
					</tr>
					<tr>
						<td>
						
							<table cellpadding="3">
								<tr>
									<td width="100" class="legenda_campo" align="right">Nome:</td>
									<td><asp:TextBox ID="nome" columns="35" maxlength="60" runat="server" BackColor="#f8f8f8"></asp:TextBox></td>
								</tr>
								<tr>
									<td class="legenda_campo" align="right">Cidade:</td>
									<td><asp:TextBox ID="localidade" columns="35" maxlength="50" runat="server" BackColor="#f8f8f8"></asp:TextBox></td>
								</tr>
								<tr>
									<td class="legenda_campo" align="right">Estado:</td>
									<td>
									
									<asp:dropdownlist BackColor="#f0f0f0" id="estado" runat="server" Font-Size="10px" Height="70px">
										<asp:ListItem Value="">Selecione:</asp:ListItem>
										<asp:listitem value="AC">Acre</asp:listitem>
										<asp:listitem value="AL">Alagoas</asp:listitem>
										<asp:listitem value="AP">Amapá</asp:listitem>
										<asp:listitem value="AM">Amazonas</asp:listitem>
										<asp:listitem value="BA">Bahia</asp:listitem>
										<asp:listitem value="CE">Ceará</asp:listitem>
										<asp:listitem value="DF">Distrito Federal</asp:listitem>
										<asp:listitem value="ES">Espírito Santo</asp:listitem>
										<asp:listitem value="GO">Goiás</asp:listitem>
										<asp:listitem value="MA">Maranhão</asp:listitem>
										<asp:listitem value="MT">Mato Grosso</asp:listitem>
										<asp:listitem value="MS">Mato Grosso do Sul</asp:listitem>
										<asp:listitem value="MG">Minas Gerais</asp:listitem>
										<asp:listitem value="PA">Pará</asp:listitem>
										<asp:listitem value="PB">Paraíba</asp:listitem>
										<asp:listitem value="PR">Paraná</asp:listitem>
										<asp:listitem value="PE">Pernambuco</asp:listitem>
										<asp:listitem value="PI">Piauí</asp:listitem>
										<asp:listitem value="RJ">Rio de Janeiro</asp:listitem>
										<asp:listitem value="RN">Rio Grande do Norte</asp:listitem>
										<asp:listitem value="RS">Rio Grande do Sul</asp:listitem>
										<asp:listitem value="RO">Rondônia</asp:listitem>
										<asp:listitem value="RR">Roraima</asp:listitem>
										<asp:listitem value="SC">Santa Catarina</asp:listitem>
										<asp:listitem value="SP">São Paulo</asp:listitem>
										<asp:listitem value="SE">Sergipe</asp:listitem>
										<asp:listitem value="TO">Tocantins</asp:listitem>										
									</asp:dropdownlist>									
									
									</td>
								</tr>
								<tr>
									<td class="legenda_campo" align="right">E-mail:</td>
									<td><asp:TextBox ID="email" forecolor="#ffffff" columns="35" maxlength="60" runat="server" BackColor="#f8f8f8"></asp:TextBox></td>
								</tr>		 
								<tr>
									<td colspan="2" align="right"><asp:Button id="btnok" runat="server" onclick="btn_ok" Text="Buscar cadastros" bordercolor="#ffffff" BorderStyle="groove" forecolor="white" BackColor="#336699" /></asp:button></td>
								</tr>													   
							</table>
						
						</td>
					</tr>
					<tr>
						<td height="10"></td>
					</tr>
					<tr>
						<td>
						
							<table width="100%" border="1">
								<tr>
									<td>
									
									<asp:datagrid id="datagrid1" runat="server" borderstyle="solid" borderwidth="1px" bordercolor="gray" font-names="Arial" font-size="8pt" cellpading="2">

									<itemStyle backcolor="#e0e0e0" verticalalign="top"></itemstyle>

									<headerstyle backcolor="#c0c0ff" font-size="8pt" font-names="Arial" font-bold="true"></headerstyle>

									</asp:datagrid>									
									
									</td>
								</tr>
							</table>
						
						</td>
					</tr>
				</table>
			
			</td>
		</tr>
	</table>

</form>

</body>
</html>

Tem coisa ai que é de teste que coloquei para tentar colocar para rodar em MysQL mas nao deu certo, se alguém puder me ajudar....

Xavier

quintelab · Julho 10, 2008

Movido Plataforma .NET http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET » Web Applications

De uma olhada neste link: http://www.macoratti.net/aspn_csq.htm

A diferença básica será sua conexão, e outro detalhe é onde esta OleDBConnection por exemplo ficará MySqlConnection assim por diante.

Abraços...

DBB · Julho 10, 2008

Cara creio que a melhor solução é usar o provider escrito pela MySQL, eu to usando é show de bola, já consegui implementar memberShip com MySQL....

Abaixo link para download do provider e alguns links de como usar etc...

Connector MySQL.net

http://dev.mysql.com/downloads/connector/net/5.2.html

Aplicando Membership com Mysql

http://dev.mysql.com/downloads/connector/net/5.2.html

E o tutorial do Macoratti:

http://www.macoratti.net/aspn_csq.htm

Lab Design · Julho 11, 2008

Na locaweb tem um exemplo de conexão aspx/mySQL na url: http://site.locaweb.com.br/suporte/faq/faq...oCategoria=4772

Eu segui os passos e funcionou. O detalhes que precisa ver é se da database tá liberada para acesso de IP externos para que possa fazer os testes locais, caso a sua database esteja num provedor de internet.

Eu apanhei um pouco no webconfig mas consegui:

<connectionStrings>

<add name="JerodString" connectionString="Data Source=mysql.meudominio.com.br; Database=minhaDB; User Id=usuario; Password=senha; pooling=false"/>

</connectionStrings>

Ilano · Julho 11, 2008

LabDesign

Tenho este exemplo, muito bom! Aí vai todos os passos para você fazer um cadastro usando MySQL.

web.config:

<appSettings>

<add key="cStrConexao" value="server=localhost;user id=root;password=sua_senha;persist security info=True;database=Seu_Banco_De_Dados; Pooling=True;Max Pool Size=100;Min Pool Size=20;Connection lifetime=300"/>

</appSettings>

Objetos:

Imports MySql.Data.MySqlClient

Namespace EJovem

Public Class objCursos

'Private Db As classDatabase.DbSql

Private Cx As MySqlConnection

Private Cm As MySqlCommand

Private Fn As New Funcoes.classFuncao

' Declaracao das variaveis

Private vlCodigo As Integer

Private vlNome As String

Private vlNivel As Integer

Private vlCategoria As Integer

Private vlIntroducao As String

Private vlObjetivos As String

Private vlPublicos As String

Private vlPreRequisitos As String

Private vlConteudo As String

' Declaracao das propriedades

Property Codigo()

Get

Return vlCodigo

End Get

Set(ByVal Value)

vlCodigo = Value

End Set

End Property

Property Nome()

Get

Return vlNome

End Get

Set(ByVal Value)

vlNome = Value

End Set

End Property

Property Nivel()

Get

Return vlNivel

End Get

Set(ByVal Value)

vlNivel = Value

End Set

End Property

Property Categoria()

Get

Return vlCategoria

End Get

Set(ByVal Value)

vlCategoria = Value

End Set

End Property

Property Introducao()

Get

Return vlIntroducao

End Get

Set(ByVal Value)

vlIntroducao = Value

End Set

End Property

Property Objetivos()

Get

Return vlObjetivos

End Get

Set(ByVal Value)

vlObjetivos = Value

End Set

End Property

Property Publicos()

Get

Return vlPublicos

End Get

Set(ByVal Value)

vlPublicos = Value

End Set

End Property

Property PreRequisitos()

Get

Return vlPreRequisitos

End Get

Set(ByVal Value)

vlPreRequisitos = Value

End Set

End Property

Property Conteudo()

Get

Return vlConteudo

End Get

Set(ByVal Value)

vlConteudo = Value

End Set

End Property

' Declaracao dos procedimentos

Public Function Inserir() As String

Try

Dim conexaoMySQL As MySqlConnection

Dim Cm As New MySqlCommand

Dim SQL As New System.Text.StringBuilder

Dim Conexao As String

Conexao = ConfigurationManager.AppSettings("cStrConexao")

conexaoMySQL = New MySqlConnection(Conexao)

SQL.Append(" INSERT INTO tb_cursos (Niv_ID, Cat_ID, Cur_Nome, Cur_Introducao, Cur_Objetivos, ")

SQL.Append(" Cur_Publico, Cur_PreRequisitos, Cur_Conteudo) VALUES (?Nivel, ?Categoria, ?Nome, ")

SQL.Append(" ?Introducao, ?Objetivos, ?Publico, ?PreRequisitos, ?Conteudo) ")

With Cm.Parameters

.Add(New MySqlParameter("?Nivel", vlNivel))

.Add(New MySqlParameter("?Categoria", vlCategoria))

.Add(New MySqlParameter("?Nome", UCase(Trim(vlNome))))

.Add(New MySqlParameter("?Introducao", Trim(vlIntroducao)))

.Add(New MySqlParameter("?Objetivos", Trim(vlObjetivos)))

.Add(New MySqlParameter("?Publico", Trim(vlPublicos)))

If vlPreRequisitos = DBNull.Value.ToString Then .Add(New MySqlParameter("?PreRequisitos", Trim(vlPreRequisitos))) Else .Add(New MySqlParameter("?PreRequisitos", DBNull.Value))

.Add(New MySqlParameter("?Conteudo", Trim(vlConteudo)))

End With

If Busca() Then

Return "REGISTRO JÁ CADASTRADO!"

Else

Cm.Connection = conexaoMySQL

Cm.CommandText = SQL.ToString

conexaoMySQL.Open()

Cm.ExecuteNonQuery()

conexaoMySQL.Close()

Return "REGISTRO CADASTRADO COM SUCESSO!"

End If

Catch ex As Exception

Return "Erro:" & ex.Message

Finally

Cm = Nothing

End Try

End Function

Public Function Alterar() As String

Try

Dim conexaoMySQL As MySqlConnection

Dim Cm As New MySqlCommand

Dim SQL As New System.Text.StringBuilder

Dim Conexao As String

Conexao = ConfigurationManager.AppSettings("cStrConexao")

conexaoMySQL = New MySqlConnection(Conexao)

SQL.Append(" UPDATE tb_cursos SET ")

SQL.Append(" Niv_ID = ?Nivel, Cat_ID = ?Categoria, Cur_Nome = ?Nome, Cur_Introducao = ?Introducao, ")

SQL.Append(" Cur_Objetivos = ?Objetivos, Cur_Publico = ?Publico, Cur_PreRequisitos = ?PreRequisitos, Cur_Conteudo = ?Conteudo ")

SQL.Append(" WHERE Cur_ID = ?Codigo ")

With Cm.Parameters

.Add(New MySqlParameter("?Nivel", vlNivel))

.Add(New MySqlParameter("?Categoria", vlCategoria))

.Add(New MySqlParameter("?Nome", UCase(Trim(vlNome))))

.Add(New MySqlParameter("?Introducao", Trim(vlIntroducao)))

.Add(New MySqlParameter("?Objetivos", Trim(vlObjetivos)))

.Add(New MySqlParameter("?Publico", Trim(vlPublicos)))

.Add(New MySqlParameter("?PreRequisitos", Trim(vlPreRequisitos)))

.Add(New MySqlParameter("?Conteudo", Trim(vlConteudo)))

.Add(New MySqlParameter("?Codigo", vlCodigo))

End With

If BuscaDuplicado() Then

Return "REGISTRO JÁ CADASTRADO!"

Else

Cm.Connection = conexaoMySQL

Cm.CommandText = SQL.ToString

conexaoMySQL.Open()

Cm.ExecuteNonQuery()

conexaoMySQL.Close()

Return "REGISTRO ALTERADO COM SUCESSO!"

End If

Catch ex As Exception

Return "Erro:" & ex.Message

Finally

Cm = Nothing

End Try

End Function

Public Function Excluir() As String

Try

Dim conexaoMySQL As MySqlConnection

Dim Cm As New MySqlCommand

Dim SQL As New System.Text.StringBuilder

Dim Conexao As String

Conexao = ConfigurationManager.AppSettings("cStrConexao")

conexaoMySQL = New MySqlConnection(Conexao)

SQL.Append(" DELETE FROM tb_cursos ")

SQL.Append(" WHERE Cur_ID = " & vlCodigo)

Cm.Connection = conexaoMySQL

Cm.CommandText = SQL.ToString

conexaoMySQL.Open()

Cm.ExecuteNonQuery()

conexaoMySQL.Close()

Return "EXCLUSÃO EFETUADA COM SUCESSO!"

Catch ex As Exception

Return "Erro:" & ex.Message

Finally

Cm = Nothing

End Try

End Function

Public Function Consultar(ByVal pParametro As String) As Data.DataSet

Dim conexaoMySQL As MySqlConnection

Dim Da As MySqlDataAdapter

Dim Ds As Data.DataSet

Dim SQL As New System.Text.StringBuilder

Dim Conexao As String

Conexao = ConfigurationManager.AppSettings("cStrConexao")

conexaoMySQL = New MySqlConnection(Conexao)

SQL.Append(" SELECT C.Cur_ID, C.Niv_ID, C.Cat_ID, C.Cur_Nome, C.Cur_Introducao, ")

SQL.Append(" C.Cur_Objetivos, C.Cur_Publico, C.Cur_PreRequisitos, C.Cur_Conteudo, N.Niv_Nome, CA.Cat_Nome ")

SQL.Append(" FROM tb_cursos C ")

SQL.Append(" INNER JOIN tb_niveis N ON (C.Niv_ID = N.Niv_ID) ")

SQL.Append(" INNER JOIN tb_categorias CA ON (C.Cat_ID = CA.Cat_ID) ")

If Trim(pParametro) <> "" Then SQL.Append(" WHERE " & pParametro & "")

SQL.Append(" ORDER BY Cur_Nome ")

Da = New MySqlDataAdapter(SQL.ToString, conexaoMySQL)

conexaoMySQL.Open()

Ds = New Data.DataSet

Da.Fill(Ds)

Return Ds

conexaoMySQL.Close()

End Function

'Função para retornar verdadeiro quando estação encontrada

Private Function Busca() As Boolean

Dim Ds As Data.DataSet

Ds = Consultar(" C.Cur_Nome = '" & vlNome & "' AND C.Niv_ID = " & vlNivel & " AND C.Cat_ID = " & vlCategoria)

If Ds.Tables(0).Rows.Count <> 0 Then

Return True

Else

Return False

End If

End Function

'Função para retornar verdadeiro quando estação encontrada

Private Function BuscaDuplicado() As Boolean

Dim Ds As Data.DataSet

Ds = Consultar(" Cur_ID <> " & vlCodigo & " AND C.Cur_Nome = '" & vlNome & "' AND C.Niv_ID = " & vlNivel & " AND C.Cat_ID = " & vlCategoria)

If Ds.Tables(0).Rows.Count <> 0 Then

Return True

Else

Return False

End If

End Function

End Class

End Namespace

Na página ASPX:

Imports System.Drawing

Imports System.EventArgs

Partial Class Forms_CadCursos

Inherits System.Web.UI.Page

Private Cursos As New EJovem.objCursos

Private Categorias As New EJovem.objCategorias

Private Niveis As New EJovem.objNiveis

Private Fn As New Funcoes.classFuncao

Private Sub PovoaCategorias()

Dim Ds As Data.DataSet

Ds = Categorias.Consultar("")

DDLCategoria.DataSource = Ds

DDLCategoria.DataBind()

DDLCategoria.Items.Insert(0, New ListItem("--SELECIONE--", String.Empty))

End Sub

Private Sub PovoaNiveis()

Dim Ds As Data.DataSet

Ds = Niveis.Consultar("")

DDLNivel.DataSource = Ds

DDLNivel.DataBind()

DDLNivel.Items.Insert(0, New ListItem("--SELECIONE--", String.Empty))

End Sub

Private Sub PovoaGrid()

Dim Ds As Data.DataSet

Ds = Cursos.Consultar(" C.Cur_Nome LIKE '%" + TxtNome.Text & "%' ")

DataGrid1.DataSource = Ds

DataGrid1.DataBind()

End Sub

Private Sub LimpaCampos()

Fn.LimpaForm(Page.Controls)

LbMensagem.Text = DBNull.Value.ToString

LbCodigo.Text = 0

BtnExcluir.Visible = False

TxtConteudo.Text = DBNull.Value.ToString

TxtIntroducao.Text = DBNull.Value.ToString

TxtObjetivos.Text = DBNull.Value.ToString

TxtPreRequisitos.Text = DBNull.Value.ToString

TxtPublico.Text = DBNull.Value.ToString

PovoaGrid()

End Sub

Private Sub VerificaCampos()

Dim I As Integer

Dim C As String

I = 0

C = DBNull.Value.ToString

If DDLCategoria.SelectedItem.Text = "--SELECIONE--" Then

I = I + 1

DDLCategoria.BackColor = Color.FromName("#D0EAF8")

C = C + "CATEGORIA DO CURSO<div>"

Else

If DDLCategoria.SelectedItem.Text <> "--SELECIONE--" Then

I = 0

End If

End If

If DDLNivel.SelectedItem.Text = "--SELECIONE--" Then

I = I + 1

DDLNivel.BackColor = Color.FromName("#D0EAF8")

C = C + "NÍVEL DO CURSO<div>"

Else

If DDLNivel.SelectedItem.Text <> "--SELECIONE--" Then

I = 0

End If

End If

If TxtNome.Text = "" Then

I = I + 1

TxtNome.BackColor = Color.FromName("#D0EAF8")

C = C + "NOME DO PAÍS<div>"

Else

If TxtNome.Text <> "" Then

I = 0

End If

End If

If TxtConteudo.Text = "" Then

I = I + 1

TxtConteudo.BackColor = Color.FromName("#D0EAF8")

C = C + "DESCRIÇÃO DO CONTEÚDO<div>"

Else

If TxtConteudo.Text <> "" Then

I = 0

End If

End If

If TxtIntroducao.Text = "" Then

I = I + 1

TxtIntroducao.BackColor = Color.FromName("#D0EAF8")

C = C + "DESCRIÇÃO DA INTRODUÇÃO<div>"

Else

If TxtIntroducao.Text <> "" Then

I = 0

End If

End If

If TxtObjetivos.Text = "" Then

I = I + 1

TxtObjetivos.BackColor = Color.FromName("#D0EAF8")

C = C + "DESCRIÇÃO DA INTRODUÇÃO<div>"

Else

If TxtObjetivos.Text <> "" Then

I = 0

End If

End If

If TxtPublico.Text = "" Then

I = I + 1

TxtPublico.BackColor = Color.FromName("#D0EAF8")

C = C + "DESCRIÇÃO DA INTRODUÇÃO<div>"

Else

If TxtPublico.Text <> "" Then

I = 0

End If

End If

If I = 0 Then

AssociaCampos()

Else

If I > 0 Then

If I = 1 Then LbMensagem.Text = "<b>FALTOU PREENCHER O CAMPO:</b><br>" & C Else LbMensagem.Text = "<b>FALTOU PREENCHER OS CAMPOS:</b><br>"

End If

End If

End Sub

Private Sub AssociaCampos()

With Cursos

.Codigo = LbCodigo.Text

.Nome = Trim(TxtNome.Text)

.Categoria = DDLCategoria.SelectedValue

.Nivel = DDLNivel.SelectedValue

.Introducao = Trim(Server.HtmlEncode(TxtIntroducao.Text))

.Objetivos = Trim(Server.HtmlEncode(TxtObjetivos.Text))

If TxtPreRequisitos.Text <> DBNull.Value.ToString Then .PreRequisitos = Trim(Server.HtmlEncode(TxtPreRequisitos.Text)) Else .PreRequisitos = DBNull.Value.ToString

.Publicos = Trim(Server.HtmlEncode(TxtPublico.Text))

.Conteudo = Trim(Server.HtmlEncode(TxtConteudo.Text))

End With

Incluir()

End Sub

Private Sub Incluir()

If LbCodigo.Text = 0 Then

Fn.Alerta(Cursos.Inserir(), Page)

LimpaCampos()

Else

If LbCodigo.Text > 0 Then

Cursos.Codigo = CInt(LbCodigo.Text)

Fn.Alerta(Cursos.Alterar(), Page)

LimpaCampos()

End If

End If

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not IsPostBack Then

LbCodigo.Text = 0

PovoaCategorias()

PovoaNiveis()

PovoaGrid()

TxtNome.Focus()

End If

End Sub

Protected Sub BtnSalvar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles BtnSalvar.Click

VerificaCampos()

'TxtNome.Focus()

End Sub

Protected Sub BtnCancelar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles BtnCancelar.Click

LimpaCampos()

TxtNome.Focus()

End Sub

Protected Sub BtnConsultar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles BtnConsultar.Click

PovoaGrid()

TxtNome.Focus()

End Sub

Protected Sub BtnExcluir_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles BtnExcluir.Click

If LbCodigo.Text > 0 Then

If "S".Equals(Me.hidden1.Value) Then

Cursos.Codigo = LbCodigo.Text

Fn.Alerta(Cursos.Excluir(), Page)

End If

End If

LimpaCampos()

TxtNome.Focus()

End Sub

Protected Sub DataGrid1_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.CancelCommand

If e.CommandName = "Cancel" Then

DataGrid1.CurrentPageIndex = 0

Dim Ds As Data.DataSet

Ds = Cursos.Consultar(" C.Cur_ID = " & e.Item.Cells(0).Text)

LbCodigo.Text = Ds.Tables(0).Rows(0)("Cur_ID")

TxtNome.Text = Ds.Tables(0).Rows(0)("Cur_Nome")

PovoaCategorias()

DDLCategoria.SelectedValue = Ds.Tables(0).Rows(0)("Cat_ID")

PovoaNiveis()

DDLNivel.SelectedValue = Ds.Tables(0).Rows(0)("Niv_ID")

TxtIntroducao.Text = Server.HtmlDecode(Ds.Tables(0).Rows(0)("Cur_Introducao"))

TxtObjetivos.Text = Server.HtmlDecode(Ds.Tables(0).Rows(0)("Cur_Objetivos"))

TxtPublico.Text = Server.HtmlDecode(Ds.Tables(0).Rows(0)("Cur_Publico"))

If Not IsDBNull(Ds.Tables(0).Rows(0)("Cur_PreRequisitos")) Then TxtPreRequisitos.Text = Server.HtmlDecode(Ds.Tables(0).Rows(0)("Cur_PreRequisitos")) Else TxtPreRequisitos.Text = DBNull.Value.ToString

TxtConteudo.Text = Server.HtmlDecode(Ds.Tables(0).Rows(0)("Cur_Conteudo"))

BtnExcluir.Visible = False

TxtNome.Focus()

LbMensagem.Text = "TEM CERTEZA DE QUE DESEJA ALTERAR ESTE REGISTRO?<br>APÓS ALTERÁ-LO CLIQUE EM SALVAR, CASO CONTRÁRIO CLIQUE EM CANCELAR."

End If

End Sub

Protected Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand

If e.CommandName = "Delete" Then

DataGrid1.CurrentPageIndex = 0

Dim Ds As Data.DataSet

Ds = Cursos.Consultar(" C.Cur_ID = " & e.Item.Cells(0).Text)

LbCodigo.Text = Ds.Tables(0).Rows(0)("Cur_ID")

TxtNome.Text = Ds.Tables(0).Rows(0)("Cur_Nome")

PovoaCategorias()

DDLCategoria.SelectedValue = Ds.Tables(0).Rows(0)("Cat_ID")

PovoaNiveis()

DDLNivel.SelectedValue = Ds.Tables(0).Rows(0)("Niv_ID")

TxtIntroducao.Text = Server.HtmlDecode(Ds.Tables(0).Rows(0)("Cur_Introducao"))

TxtObjetivos.Text = Server.HtmlDecode(Ds.Tables(0).Rows(0)("Cur_Objetivos"))

TxtPublico.Text = Server.HtmlDecode(Ds.Tables(0).Rows(0)("Cur_Publico"))

TxtPreRequisitos.Text = Server.HtmlDecode(Ds.Tables(0).Rows(0)("Cur_PreRequisitos"))

TxtConteudo.Text = Server.HtmlDecode(Ds.Tables(0).Rows(0)("Cur_Conteudo"))

BtnExcluir.Visible = True

TxtNome.Focus()

LbMensagem.Text = "TEM CERTEZA DE QUE DESEJA EXCLUIR ESTE REGISTRO?<br>PARA EXCLUÍ-LO DEFINITIVAMENTE, CLIQUE NO BOTÃO EXCLUIR ACIMA."

End If

End Sub

Protected Sub DataGrid1_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemCreated

If e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Then

e.Item.Attributes.Add("onMouseOver", "selecionaGrid(this)")

e.Item.Attributes.Add("onMouseOut", "deSelecionaGrid(this)")

End If

End Sub

Protected Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged

DataGrid1.CurrentPageIndex = e.NewPageIndex

PovoaGrid()

End Sub

End Class

Entrar

Arquivado

Como conectar a base MySQL

Recommended Posts

webfuture 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

DBB 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Lab Design 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ilano 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante