mysql数据查询问题，求助大神

756082@qq.com

1.从数据库查询此A列,名字对应的所有信息,多条件查询(标色的.名字.手机号码,证件号码,法人手机号.麻烦的就算了.就名字查询就可以了.)
2,数据在自己的局域网mysq数据库里查询,数据库如本表的数据格式一样,需要大神写给本地的和mysql服务器的2种语句.

hfwufanhf2006

1、我个人的理解，不管是本地数据还是服务器，sql语法部分是一样的，至少样式上是相似的，只是驱动不一样；
2、关于你excel表格的数据，sql语法是：
     select 手机号码,证件号码,法人代表 from [数据库$]a left join [查询$]b  on b.名字=a.名字
     参考第一条我的看法，数据库上的写法也是类似的，我想象的语法是：
     select 手机号码,证件号码,法人代表 from 数据库名称 as a left join [查询$]b  on b.名字=a.名字

3、数据库读取与ip和端口无关，只需要知道数据服务器和数据库名称即可，我个人只用过 sql server 数据库，它在excel中的驱动写法：
     "rovider=SQLOLEDB.1;Integrated Security=SSPIersist Security Info=True;Initial Catalog=数据库名称;Data Source=数据库服务器名称"

     对于excel表单（2013以上版本），其驱动写法：
     "rovider=Microsoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;hdr=yes;imex=1';Data Source=" & ThisWorkbook.FullName

     上面驱动都没有涉及密码，我个人从不用密码，你到网上查一下，我理解就是添加一个 password之类的参数应该就可以了；
     mySQL的驱动我不知道，网上应该能找到吧。
4、最后是你样表的完整代码：
     Dim Cn As Object
     Dim Rec As Object
     Dim strsql As String
     Set Cn = CreateObject("adodb.connection")
     Set Rec = CreateObject("ADODB.Recordset")
     Cn.Open "rovider=Microsoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;hdr=yes;imex=1';Data Source=" & ThisWorkbook.FullName
     strSql = "select 手机号码,证件号码,法人代表 from [数据库$]a left join [查询$]b  on b.名字=a.名字"
     Set Rec = Cn.Execute(strSql)
     [b:e] = ""
     Cells(1, 2) = Rec.Fields(0).Name
     Cells(1, 3) = Rec.Fields(1).Name
     Cells(1, 4) = Rec.Fields(2).Name
     Range("b2").CopyFromRecordset Rec