Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xeon

Resgatar o nome de um objeto

Recommended Posts

como que eu poderia resgatar o nome de um objeto em vb.net?

por exemplo este código:

Public Sub ISqlAuto(ByVal Form As System.Windows.Forms.Form, ByVal tabela As String)        Dim sql As String = "Insert into " & tabela & " ("        Dim i As Integer        For i = 0 To (Form.Controls.Count - 1)            If TypeOf Form.Controls.Item(i) Is System.Windows.Forms.TextBox Then                'DirectCast(Form.Controls.Item(i), System.Windows.Forms.TextBox).Name()                sql += DirectCast(Form.Controls.Item(i), String) & ","            End If        Next i        sql += sql.Substring(0, (sql.Length - 1)) & ") values ("        For i = 0 To (Form.Controls.Count - 1)            If TypeOf Form.Controls.Item(i) Is System.Windows.Forms.TextBox Then                sql += "'" & Form.Controls.Item(i).Text & "',"            End If        Next i        sql += sql.Substring(0, (sql.Length - 1)) & ")"        Try            Conexao() ' Chama a rotina que abre a conexão            Dim comando As New SqlCeCommand(sql, Conn) ' cria um comando            comando.ExecuteNonQuery() 'executa o comando        Catch ex As SqlCeException            MessageBox.Show(ex.Message) ' exceção do banco        Catch ex As Exception            MessageBox.Show(ex.Message) ' exceção de execução        Finally            Conn.Close() ' fecha a conexão        End Try    End Sub
na linha 7 ("sql += DirectCast(Form.Controls.Item(i), String)") eu não consigo converter em stringo.... como converter!?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.