No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
2 Posted Topics
Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Form_Load() db.CursorLocation = adUseClient db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\SampleDB.mdb" Set rs = db.Execute("SELECT * FROM tbl_Student") With MSFlexGrid1 .Cols = 2 'Fixed Colunms .Rows = 1 'Fixed Rows .TextMatrix(0, 0) = "Idno" .TextMatrix(0, 1) = "name" Do Until rs.EOF '1st …
'This example is for Text File 'Add Component Microsoft Windows Common Controls 6.0 (SP6) Private Sub Command1_Click() Dim xData As String With ListView1 .FullRowSelect = True .GridLines = True .View = lvwReport .ColumnHeaders.Add , , "DATA" .ColumnHeaders(1).Width = 4124.977 End With 'Open a text file Open "c:\SampleTextFile.txt" For Input As …
The End.