niko_lol
27-04-2007, 14:54
ciao ragazzi, vi scrivo il mio codice poi vi dico il mo problema.
Public Function ContolloNome(ByVal sSql As String, ByVal sNomeFilm As String, ByVal stringaconn As String) As Boolean
Dim objConn As New OleDb.OleDbConnection(stringaconn)
Dim objDataset As New DataSet
Dim objSql As New OleDb.OleDbDataAdapter(sSql, objConn)
Dim objRow As DataRow
objSql.Fill(objDataset).ToString()
For Each objRow In objDataset.Tables(0).Rows
If sNomeFilm = objSql.Fill(objDataset) Then
Form1.tb2.Text = objSql.Fill(objDataset)
Return True
Else
Form1.tb2.Text = objSql.Fill(objDataset)
Return False
End If
Next
End Function
quando faccio il confronto con l' IF devo vedere se c'è 1 uguaglianza tra il "sNomeFilm" e i nomi del dei film di ogni record. Come faccio a "Cacciare" il nome del film dall' oggetto?
Grazie dell' aiuto! :)
:help: :mc: :muro:
Public Function ContolloNome(ByVal sSql As String, ByVal sNomeFilm As String, ByVal stringaconn As String) As Boolean
Dim objConn As New OleDb.OleDbConnection(stringaconn)
Dim objDataset As New DataSet
Dim objSql As New OleDb.OleDbDataAdapter(sSql, objConn)
Dim objRow As DataRow
objSql.Fill(objDataset).ToString()
For Each objRow In objDataset.Tables(0).Rows
If sNomeFilm = objSql.Fill(objDataset) Then
Form1.tb2.Text = objSql.Fill(objDataset)
Return True
Else
Form1.tb2.Text = objSql.Fill(objDataset)
Return False
End If
Next
End Function
quando faccio il confronto con l' IF devo vedere se c'è 1 uguaglianza tra il "sNomeFilm" e i nomi del dei film di ogni record. Come faccio a "Cacciare" il nome del film dall' oggetto?
Grazie dell' aiuto! :)
:help: :mc: :muro: