[ anebojsa @ 16.07.2010. 16:26 ] @
VB.NET ACCESS 2000 Code: u vb6 ovo funkionise normalno RsStaro je recordset tabela u staroj bazi RsNovo je recordset tabela u novoj bazi sImePolja je ime polja u tabeli nBrojac je redni broj kolone u tabeli For nBrojac = 0 To RsStaro.Fields.Count - 1 sImePolja = UCase(RsStaro.Fields(nBrojac).Name) Select Case RsNovo.Fields(sImePolja).Type 'ovaj deo me zanima Case adChar, adVarChar, adLongVarChar, adVarWChar, adWChar, adLongVarWChar 'nesto se desi Case Else 'nesto se desi End Select End If Next kako bi ovo funkcionisalo u vb.net For nBrojac = 0 To RsStaroDTab.Columns.Count - 1 sImePolja = UCase(RsStaroDTab.Columns(CInt(nBrojac)).Caption) Select Case CType(RsNovoDTab.Rows(iNovo).Item(sImePolja), OleDb.OleDbType)'ovaj deo me zanima Case OleDb.OleDbType.Char, OleDb.OleDbType.VarChar, OleDb.OleDbType.LongVarChar, OleDb.OleDbType.VarWChar, OleDb.OleDbType.WChar, OleDb.OleDbType.LongVarWChar 'nesto se desi Case Else 'nesto se desi End Select End If Next |