国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

1  Public Solar As DAO.Recordset
2 ModelData = DAODBEngine_definst.Workspaces(0).OpenDatabase(Application.StartupPath + "\Cmpnents.mdb", False, False, "MS Access;PWD=" & pssss)
3  Solar = ModelData.OpenRecordset("SELECT * From SMake", DAO.RecordsetTypeEnum.dbOpenDynaset)

 1 Function RecordsetToDataTable(ByVal adoRS As DAO.Recordset, ByVal strTable As String) As DataTable
 2 
 3         adoRS.MoveFirst()
 4         Dim dt As DataTable
 5         dt = New DataTable(strTable)
 6         Dim i As Integer
 7         Dim strcolname As String
 8         Dim t As Type
 9         Dim dr As DataRow
10 
11         For i = 0 To adoRS.Fields.Count - 1
12             strcolname = adoRS.Fields(i).Name
13             t = adoRS.Fields(i).Value.GetType()
14             dt.Columns.Add(strcolname, t)
15         Next
16         While (Not adoRS.EOF)
17             dr = dt.NewRow()
18             For i = 0 To adoRS.Fields.Count - 1
19                 dr(i) = adoRS.Fields(i).Value
20             Next
21             dt.Rows.Add(dr)
22             adoRS.MoveNext()
23         End While
24 
25         Return dt
26 

除了這個(gè)麻煩的Data控件，對(duì)VB6.0里的Printer對(duì)象我也得說(shuō)說(shuō)。這個(gè)Printer對(duì)象提供了很多.NET里的PrintDocument組件無(wú)法直接實(shí)現(xiàn)的功能，像對(duì)窗口，圖片的縮放打印。于是我期盼著能直接使用這個(gè)Printer對(duì)象。查了下MSDN，它告訴我：這個(gè)對(duì)象在.NET也有內(nèi)置的支持，于是我按照它說(shuō)的安裝了VisualBasicPowerPacksRedist.msi并引入相關(guān)的DLL組件(相關(guān)的說(shuō)明及操作，請(qǐng)參考MSDN:http://msdn.microsoft.com/zh-cn/library/microsoft.visualbasic.powerpacks.printing.compatibility.vb6.printer.aspx)，并引入了 Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6命名空間，這時(shí)與VB6.0中Printer對(duì)象有關(guān)的方法可以用了，可在執(zhí)行打印時(shí)完全沒(méi)任何紙從打印機(jī)出來(lái)，如此weird，呵呵，除了這個(gè)詞我實(shí)在不知道還有哪種語(yǔ)言哪個(gè)形容詞能描述它。最后我不得不用PrintDocument組件實(shí)現(xiàn)它。對(duì)于這個(gè)問(wèn)題，歡迎大家和我交流。