I have tried to provide an easy procedure showing simple code.

Requirement

We have to needed one separately Gmail account for your Google Drive.





Now create a new project.



  1. Imports System.Data
  2. Imports System.Data.OleDb
  3. Public Class Form1
  5. Public ConnString As String
  6. Public conn As New OleDbConnection
  7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  8. Dim userPath As String
  9. userPath = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
  10. Label1.Text = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + userPath + "\Google Drive\useradmin.accdb;Persist Security Info=False"
  11. ConnString = Label1.Text
  12. End Sub
  13. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  14. Try
  15. conn.ConnectionString = ConnString
  16. If conn.State = ConnectionState.Closed Then
  17. conn.Open()
  18. End If
  19. Dim sql As String = ("select * from tbl_regis")
  20. Dim dataadapter As New OleDbDataAdapter(sql, conn)
  21. Dim ds As New DataSet()
  22. Dim dt As New DataTable()
  23. dataadapter.Fill(ds)
  24. dt = ds.Tables(0)
  25. DataGridView1.DataSource = dt
  26. Catch ex As Exception
  27. MessageBox.Show(ex.Message)
  28. End Try
  29. conn.Close()
  30. End Sub
  31. End Class



Now you can share your database in your group and others.

Thanks.