help telling the steps of creatin a database in vb 6

[Khliboy_2796]

Can u help in tellin me the process of adding a Ms Access database to vb 6.

[AndreRet]

If you are saying "adding to vb6" are you talking about creating a table etc?

[Jaseem Ahmed]

it is very easy process, first open ur vb, go to project menu, then components option and select Microsoft ADO Data Control 6.0, and then draw it on ur form, then create a connection, by right clicking on ADODC..and then click on Build button and select Microsoft jet 4.0 OLE DB Provider, and press next button and select a database that u have created in MS Access,and then press ok, and then go to record source and select no. 2 from combo 2-adCMDtable and the tables will b shown blow, select table from there, and then take ur controls in which u want to call data fielsds..go to those control's properties and set Data Source Adodc, and data filed.

[debasisdas]

Try the following if you are trying to create a table by VB 6 code.

Private Function CreateTable() As Boolean
  Dim catDatabase As ADOX.Catalog
  Dim oTable As ADOX.Table
  Dim bCreateTable As Boolean
' -------------------------------
  On Error GoTo PROC_ERR
  
  
  bCreateTable = False
  
  Set catDatabase = New ADOX.Catalog
  With catDatabase
	.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
						"Data Source='C:\TestDB.mdb';"
	
	Set oTable = .Tables("Priorities")
  End With
  
PROC_EXIT:
  
  If (bCreateTable) Then
	Set oTable = New ADOX.Table
	With oTable
	  .Name = "Priorities"
	  Call .Columns.Append("Priority_ID", adInteger)
	  Call .Columns.Append("Description", adVarWChar, 20)
	End With
	
	Call catDatabase.Tables.Append(oTable)
  End If
  
  If (Not catDatabase Is Nothing) Then
	Set catDatabase = Nothing
  End If
 
  CreateTable = bCreateTable
PROC_ERR:
  Select Case Err.Number
  
	bCreateTable = True
	Err.Clear
	Resume PROC_EXIT
  Case Is <> 0
	MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdCreateTable_Click of Form frmMain"
	bCreateTable = False
	Err.Clear
	Resume PROC_EXIT
  End Select
End Function