xeon 0 Denunciar post Postado Agosto 11, 2005 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 Subna 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
Tiago Colombo 0 Denunciar post Postado Agosto 12, 2005 Olá,já tentou Form.Controls.Item(i).toString() ?[]´s Compartilhar este post Link para o post Compartilhar em outros sites